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of  a  large  scale  industry/government  program  was  the  I-CAM  project.  This  project  lasting 
10  years  and  $250M  has  been  only  partially  successful,  attesting  to  the  difficulty  of  the 
integration  challenge. 

\/ 

It  was  the  purpose  for  research  funded  under  this  grant  to  continue  the  development  of 
miniature  prototype  equipment  for  use  in  an  integrated  CAD/CAM  Laboratory.  The  equipment 
developedjjnder  this  grant  and^fj^'W^ious  work  is  capable  of  actually  performing  production 
operations  (e.g.  drilling,  milling,  turning,  punching,  etc.)  on  metallic  and  non-metallic 
workpieces. 

It  is  now  expected  that  the  prototype  equipment  developed  or  otherwise  acquired  under 
this  grant  will  now  provide  the  basis  for  extensive  research  on  Manufacturing  Information 
Systems,  Common  Database  Development,  CIM  Application  Program  Development,  Local 
Area  Networking,  and  Knowledge-based  CAD/CAM  Training  utilizing  Interactive  Videodisc 
Deli\/ery  Systems.  ••  '  '  --  <'•  i  ^ V.  ■ 


MANUFACTURING  INFORMATION  SYSTEM 


(Equipment  Development  Phase) 

1.  INTRODUCTION 

This  is  the  final  technical  report  for  research  completed  during  a  28-month 
effort  to  develop  prototype  aboratory  sized  manufacturing  equipment  for  use  in 
Manufacturing  Information  System  research. 

1.1  NEED 


In  response  to  a  long-felt  need  and  effort  to  improve  manufacturing 
enginccring/technology  education,  the  development  of  a  full  sized  computer  aided 
manufacturing  (CAM)  laboratory  was  undertaken  at  Brigham  Young  University  in 
1974  as  a  BYU  Centennial  year  activity.  The  purpose  of  this  laboratory  was  to 
provide  advanced  facilities  for  1)  teaching,  2)  research,  and  3)  technology 
transfer.  By  1976  a  building  had  been  erected  for  the  laboratory  and  a  number 
of  pieces  of  full  sized  industrial  CAD/CAM  equipment  had  been  acquired  through 
cost-sharing  and  educational  contributions.  One  hope  for  the  CAM  Laboratory  was 
to  develop  a  fully  integrated  system  for  linking  the  Applicon  Computer  Graphics 
System  to  a  host  computer  PDP  11/40  Industrial  Control  Computer  for  process 
planning,  scheduling,  and  N/C  programming.  The  control  information  was  then  to 
be  down-loaded  to  individual  machines  for  producing  the  various  parts.  Machines 
acquired  for  the  full-sized  CAM  Lab  inculded  a  K  &.  T  MMIOO  CNC  milling  machi 
a  Sheldon  Model  1710  tape  lathe  with  an  Allen-Bradley  7360  CNC  conrol  unit.  An 
Eaton-  Kenway  Automated  Storage  and  Retrieval  System  (AS/RS)  for  parts  storage, 
and  an  ASEA  Industrial  Robot  Model  Rb-6  for  processing,  inspection  and  assembly. 

1.2  PROBLEM 

As  the  work  of  integration  started  at  BYU,  it  was  soon  discovered  that  two 
classes  of  problems  existed.  First  it  became  apparent  that  many  smaller  problems 
had  to  be  solved  in  physically  linking  and  logically  inter-connecting  the  various 
full-sized  pieces  of  equipment.  For  example,  it  was  discovered  that  the  Bendix 
Cordax  inspection  machine  could  not  use  the  graphics  data  base  for  inspecting 
parts  produced  on  the  CNC  Milling  Machine.  The  graphics  data  base  did  not  have 
tolerances  stored  for  the  various  dimensions.  Also,  the  graphics  data  base  for 
the  wire  frame  model  did  not  store  relationships  between  the  various  form 
features. 

It  was  soon  discovered  that  the  BYU  integration  problems  were  not  unique. 
The  major  Government/Industry  Integration  effort  of  I-CAM  ran  into  problems  as 
well.  The  initial  work  of  the  I-CAM  project  had  as  its  central  focus  "Database 
and  Database  Automation".  This  central  focus  was  changed  after  several  months 
to  that  of  developing  "generic  architecture"  models.  It  is  the  condsidered 
opinion  of  at  least  one  of  the  principal  investigators  of  this  project  that 
there  is  not  a  "generic  architecture"  which  will  fit  all  of  the  manufacturing 
companies  except  at  the  highest  levels  of  abstraction.  The  detailed  architectural 
diagrams  produced  by  various  contractors  have  not  provided  the  basis  for 
integration.  It  was  the  intent  of  the  Manufacturing  Information  System  research 
to  focus  on  database  and  database  automation  which  had  been  earlier  abandoned. 

The  second  class  of  problems  dealt  with  teaching.  There  was  a  pressing 
challenge  of  how  to  teach  the  various  graduate  and  undergraduate  classes  dealing 
with  advanced  manufacturing  technology  and  systems  iptegratiojn. 


The  full-sized  production  equipment  of  the  CAM  Lab  requires  a  considerable 
amount  of  floor  space,  is  expensive  to  operate  and  maintain,  and  because  of 
this  it  was  not  feasible  to  provide  multiple  work  stations.  Furthermore,  the 
equipment  is  a  little  dangerous  to  operate  with  large  numbers  of  student 
operators  and  it  requires  quite  a  large  amount  of  materials.  In  order  to  solve 
the  materials  problem  styrofoam  blocks  were  used  for  workpieces.  Styrofoam 
was  a  good  choice  since  it  readily  yields  in  case  a  student  has  incorrectly 
programmed  the  20  h.p.  milling  machine  and  it  suddenly  starts  moving  at  rapid 
traverse  rate  while  the  tool  is  still  in  the  cut.  However  machining  of  styrofoam 
does  not  present  a  very  realistic  exposure  to  manufacturing  problems.  Realistic 
problems  such  as  tool  wear,  cutting  fluid  secretion  and  application,  etc.  cannot 
be  studied  very  efficiently  when  machining  styrofoam. 

1.3  Proposed  Solution 

It  was  postulated  that  the  solution  to  integration  of  manufacturing  systems 
is  based  on  the  development  of  a  common  data  base,  distributed  computing,  and 
local  area  networking,  or  in  other  words,  the  availability  an  use  of  an 
appropriate  manufacturing  information  system.  In  order  to  evaluate  this 
postulate,  plans  were  made  to  construct  a  miniature  factory  and  to  install  a 
series  of  microcomputers,  databases,  and  a  local  area  networking  system  for  use 
in  information  systems  research  and  teaching.  AFOSR  Grant  No.  82-0253  has 
greatly  assisted  in  accelerating  the  development  of  prototype  laboratory  equipment 
for  this  continuing  work. 

1.4  Historical  Background 

The  concept  of  developing  a  miniature  factory  had  been  kicked  around  since 
1976  when  one  of  the  principal  investigators  had  visited  Caterpillar  Tractor 
Company  and  had  seen  some  miniature  materials  handling  equipment.  The  concept 
of  developing  a  duplicate  of  the  regular  full-sized  CAM  Lab  on  a  miniature  scale 
was  first  described  in  a  memorandum  dated  22  May  1979  from  D.K.  Allen  to 
J.J.  Kunzler.  In  this  memorandum  it  was  mentioned  that  a  Tektronix  4051  Graphics 
Display  System  had  been  donated  as  had  funds  to  purchase  a  mini-lathe.  Matching 
college  and  department  funds  were  requested  to  purchase  a  Maesym  II  Process 
Control  Computer  so  that  interfacing  it  with  the  mini-lathe  could  begin. 

Initially  the  Tektronix  4051  Graphics  System  had  been  used  to  introduce 
students  to  concepts  of  parametric  design.  With  this  approach,  a  part  family, 
based  on  Group  Technology  concepts,  could  be  displayed,  dimensions  added,  and 
the  drawing  automatically  scaled  to  size.  The  miniature  lathe  which  was  to  be 
interfaced  to  the  Maesym  controller,  which  was  to  in  turn  be  interfaced  to  the 
Tektronix  4051,  was  actually  designed  as  a  camera  maker’s  lathe  but  had  been 
retrofitted  with  ball-screws  and  digital  stepper  motors  to  permit  its  use  for 
numerical  control  applications.  In  April,  1979,  Superior  Electric  Company 
provided  a  very  generous  discount  for  stepping  motor  controllers  to  be  used  in 
conjunction  with  the  Mini-Lab  project. 

With  initial  concepts  and  all  of  the  equipment  in  place,  Mr.  Charles  Snead, 
a  graduate  student  enrolled  in  the  M.S.  Degree  Program  of  Computer  Aided 
Manufacturing  was  asked  to  begin  the  integration  process  by  linking  the  Tektronix 
Graphics  System,  Maesym  Process  Control  Computer  and  miniature  lathe.  The  result 
was  most  encouraging.  He  was  able  to  incorporate  parametric  design  with  N/C 
Cutterpath  generation  to  produce  a  family  of  rotational  parts  having  1,  2,  or  3 
diameters. 


One  problem  with  the  Maesym-based  system  was  the  very  slow  positioning 
rates  for  the  lathe  because  all  of  the  processing  was  being  performed  in  BASIC. 

With  this  approach  it  would  take  nearly  twenty  minutes  to  machine  a  simple  part. 
Subsequently,  Mr.  Steve  Painter  of  Grady  Moore  Associates  was  asked  to  develop 
a  higher  speed  stepper  motor  driver  that  could  be  used  with  the  popular  and 
low-cost  Apple  II  Microcomputer  instead  of  using  the  more  expensive  and  slower 
approach  using  the  Maesym  II  Computer.  This  development  of  the  new  controller 
took  nearly  18  months,  with  one  false  start,  but  eventually  ended  up  with  a 
very  fast  6-axis  controller  which  could  be  controlled  by  the  Apple  II  computer. 

In  order  to  expand  the  integration  concept  to  include  other  equipment,  the 
BYU  Industrial  Design  Department  was  contacted  in  the  late  spring  of  1981  and 
asked  to  produce  mock-up  equipment  for  use  in  the  Mini-Lab.  Professor  Allen 
provided  specifications  and  met  with  the  students  many  times  during  the 
development  phase  to  review  and  approve  their  work.  On  June  22,  1981,  an  open 
house  was  held  in  which  students  discussed  their  projects  with  members  of  the 
local  industrial  community. 

In  the  fall  of  1981,  Mr.  Forest  Blair,  a  student  in  mechanical  engineering 
was  employed  to  produce  assembly  and  retail  drawings  for  the  new  miniature  machine 
tools.  Mr.  Paul  Smith  worked  closely  with  the  project  and  with  other  graduate 
students  who  were  developing  and  testing  this  miniature  equipment  as  part  of 
their  thesis  work.  This  work  included  designing  the  miniature  turret  punch, 
automated  storage  and  retrieval  system,  and  industrial  robot.  Because  of 
difficulties  in  designing  a  milling  machine  in  accordance  with  the  plastic  mock-up 
provided  by  the  industrial  design  department.  Professor  Allen  developed  in  May 
of  1982  an  innovative  design  for  a  polar-coordinate  milling  machine.  A  patent 
has  since  been  applied  for  on  this  design. 

It  was  about  this  time  that  the  CAM  Laboratory  was  visited  by  Mr.  Thomas 
Walsh,  AFOSR  for  the  purpose  of  exploring  possible  mutually  beneficial  research 
interests.  As  a  follow  up  of  his  visit,  an  unsolicited  proposal  was  submitted 
to  AFOSR  on  November  6,  1981  to  fund  a  24  month  grant  for  continued  development 
of  the  Mini-Lab  and  to  then  use  the  apparatus  so  developed  in  research  directed 
toward  development  of  an  integrated  Manufacturing  Information  System.  Although 
funding  for  the  project  did  not  begin  until  July  of  1982,  work  was  going  on 
using  internal  funding. 

The  projected  Manufacturing  Information  System  research  was  described  as 
including  three  phases.  Phase  I  included  the  development  of  suitable  laboratory 
apparatus.  Phase  II  included  development  of  software  exchange  specifications, 
standards,  integration  software,  and  necessary  architecture  models,  and  Phase 
III  included  subdividing  the  responsibility  for  creating  applications  programs 
among  a  number  of  research  institutions. 

Some  slippage  occurred  in  meeting  this  planned  schedule  because  the  principal 
investigators  did  not  realize  that  the  project  would  be  funded  on  an  annual 
basis  beginning  in  July  1982  rather  than  on  a  24-month  basis  as  planned. 

Subsequently,  a  continuation  proposal  was  prepared  and  submitted  July  14,  1983. 
a  no-cost  extension  was  approved  as  was  funding  for  the  completion  of  Phase  I 
of  the  project. 

The  following  sections  describe  the  mission  and  goals  of  the  project,  work 
performed  to  date,  deliverables,  and  a  summary  and  conclusions  section. 


2.  MISSION  AND  GOALS 


The  mission  of  the  project  was  to  develop  and  test  scaled-down  manufacturing 
equipment  and  systems  as  a  basis  for  manufacturing  information  system  research, 
manufacturing  simulation  studies,  and  manufacturing  education  related  to  system 
integration.  Eight  goals  for  accomplishing  the  stated  mission  were  identified. 

Only  the  tree  goals  for  Phase  I  are  show  here.  Goals  for  Phases  II  and  III  are 
contained  in  the  original  proposal. 

Goal  I.  Design  and  develop  laboratory-size  prototype  production  equipment 
for  processing  and  handling  of  box-like,  sheet,  and  rotational  parts  made 
from  metallic  and  non-metallic  materials. 

Goal  2.  Design  and  develop  a  small,  microprocessor-based,  computer  numerical 
control  (CNC)  system  for  controlling  both  processing  and  handling  equipment. 

Goal  3.  Develop  and  test  the  CAD/CAM  interface  between  a  small  computer 
graphics  display  device  and  the  CNC  processing  and  handling  system. 

For  each  of  the  identified  goals  a  series  of  smaller  tasks  were  identified 
along  with  a  time  schedule  for  completion  of  each  task. 


3.  PROJECT  OVERVIEW  AND  DELIVERIES 

In  accordance  with  the  mission  and  goals  statement  given  above  this  section 
is  devoted  to  a  description  of  the  hardware  and  software  designs  resulting  from 
this  project.  The  prototype  hardware  designs  are  divided  into  two  broad 
categories:  The  first  category  deals  with  the  design  and  development  of 
laboratory-sized  production  equipment  for  fabricating  metallic  and  non-metallic 
piece  parts,  and  the  second  category  deals  with  equipment  control  system  hardware, 
interfaces,  and  electronic  switching. 

Software  designs  have  also  been  divided  into  two  categories:  The  first 
category  deals  with  communication  and  control  software  required  to  communicate 
between  the  host  computer  and  the  equipment  controllers  themselves,  and  the  second 
category  deals  with  application  software  to  demonstrate  the  feasibility  of  using 
parametric  design  concepts,  and  automatic  cutterpath  generation  techniques  in  a 
"paperless  factory"  environment.  The  use  of  parametric  techniques  for  defining 
individual  pieceparts  has  been  quite  extensively  used  at  BYU  and  is  now  being 
quite  widely  espoused.  Some  of  the  underlying  work  for  parametric  design  is 
based  on  the  Part  Family  Classification  which  contains  some  240  basic  shapes 
composed  of  primative  shapes  and  some  80  form  features.  With  this  system  is 
is  possible  to  generat  literally  millions  of  combinations  of  geometric 
configurations  which  can  then  be  used  in  generative  design,  family  of  part 
programming,  tool  design,  estimating,  etc. 
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The  overall  architecture  for  the  integrated  manufacturing  system  is  shown  in 
Fig.  1.  In  this  system,  IBM  PC’s  are  used  for  design  and  scheduling,  while 
Apple  II  microcomputers  are  used  for  machine  controllers  in  conjunction  with 
stepper  motor  drivers  to  actually  position  each  of  the  machines. 


Lathe 

Mill 

Punch 

Robot 

AS/RS 


Fig.  I  -  Architecture  for  Integrated  Manufacturing  Information  System 


Designs  for  each  of  the  following  prototype  equipments  are  described  below 
along  with  specifications,  photographs  and  description.  Detailed  working  drawings 
for  machines  produced  under  this  grant  and  from  other  funding  sources  arc  provided 
in  the  appendices. 


(AS/RS) 


Automated  materials  handling  is  one  of  the  major  components  of  an  integrated 
factory.  Information  flow  often  parallels  and  prccccds  material  flow,  thus 
design  of  the  material  handling  system  provides  a  basis  for  also  designing  the 
Manufacturing  Information  System. 

General  design  specifications  for  the  AS/RS  are  as  follows: 


a)  Bin  capacity  2  lbs 

b)  Bin  size  3"  x  4"  x  8"  long 

c)  No.  bins  18 

d)  Traverse  rate  100''/min 


The  AS/RS,  shown  in  Fig.  2,  is  approximately  55"  long  and  23"  high.  It  is 
equipped  with  ball  screws  and  three  slo-syn  digital  stepper-motor  drives  for 
positioning  and  bin  retraction. 


Fig.  2  -  Miniature  Automated  Storage/Retrieval  System 


The  AS/RS  unit  has  18  bins  which  can  be  used  for  storage  of  raw  materials, 
in-process  inventory,  finished  goods,  or  tooling.  Box-likc  materials  are 
staggered  in  height  to  facilitate  removal.  Rod-like  materials  are  supported  on 
an  inclined  plane  so  they  roll  into  position  to  be  gripped  by  the  robot.  Sheet 
stock  is  stored  flat,  and  requires  the  development  of  a  vacuum  gripper  mechanism 
to  aid  in  its  removal.  Detailed  design  drawings  for  the  miniature  AS/RS  are 
contained  in  Appendix  A. 

3.1.2  Miniature  Sheet-metal  Turret  Punch 

One  of  the  important  "wedges"  in  the  I-CAM  project  was  the  development  of 
a  sheet-metal  cell.  Since  there  are  a  variety  of  expert  opinions  as  to  what 
should  constitute  such  a  cell,  the  intent  of  our  project  was  to  develop  one 
standard  miniature  piece  of  equipment  which  would  appear  in  most  full-sized 
cells  and  which  would  provide  the  basis  for  information  flow  to  a  sheet  metal 
center  as  well  as  provide  a  system  which  could  be  used  for  modeling  and  simulation 
of  the  sheet  metal  production  process. 

General  design  specifications  for  the  turret  punch  arc  as  follows: 


a) 

Sheet  stock  size 

4"  X  8" 

b) 

Material  paper  card  stock 

.020"  thick 

c) 

Turret  capacity 

8  tools 

d) 

Punching  capacity 

1/4"  dia. 

c) 

Positioning  rate 

0-50"/min. 
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The  turret  punch,  shown  in  Fig.  3,  can  be  used  to  produce  holes,  cut-outs, 
and  re-entrants  of  various  sizes  depending  upon  which  tools  are  in  the  turret. 
Some  additional  work  must  still  be  done  to  increase  punching  capacity  and  punch 
alignment. 


Fig.  3  -  Miniature  Sheet-metal  Turret  Punch 
Detailed  designs  for  the  miniature  turret  punch  arc  contained  in  Appendix  B. 

3.1.3  Milling  Machine 

Prior  to  the  start  of  the  AFOSR  grant,  a  small  horizontal  spindle  drilling 
machine  had  been  acquired  and  outfitted  with  ball-screws  and  stepper  motors  to 
perform  the  functions  of  a  milling  machine.  However,  the  spindle  was  too  heavy 
to  be  elevated  by  the  stepper-motor  drives.  Consequently,  plans  were  made  to 
design  another  horizontal  mill  and  to  make  as  many  components  as  possible 
interchangeable  with  the  new  lathe  to  be  designed.  In  the  spring  of  1981,  the 
CAM  Lab  had  also  been  approached  by  Digital  Equipment  Co.  Industrial  Design 
Department  to  develop  a  small  milling  machine  to  be  connected  to  a  graphic 
workstation  for  producing  3-dimensional  sculptured  surfaces.  Rather  than  design 
a  second  horizontal  spindle  milling  machine  specifically  for  the  Manufacturing 
Information  System  project,  it  was  decided  to  use  the  design  which  had  been 
made  to  satisfy  the  needs  of  Digital  Equipment  Company.  This  design,  called 
the  polar-coordinate  mill,  while  especially  suited  for  producing  sculptured  and 
contoured  surfaces,  seemed  to  be  viable  for  use  with  the  project  at  hand.  Since 
the  design  was  already  available  for  the  polar  coordinate  mill  this  approach 
provided  a  way  to  save  some  valuable  development  time. 

The  original  design  specifications  for  a  horizontal  milling  machine  have 
been  met  with  the  polar-coordinate  milling  machine  with  the  exception  of  the 
spindle  thread  and  the  four  position  indexable  turret.  The  available  spindle 
had  only  a  1/4"  dia.  straight  shaft.  The  indexable  turret  now  has  360°  of 
rotation  instead  of  just  four  positions  called  for  in  the  original 
specifications. 


The  design  specifications  for  the  milting  machine  are  as  follows: 

a)  Size  capacity  4"  cube 

b)  Drill  motor  1/10  HP 

c)  Spindle  speeds  0-2000  rpm 

d)  Positioning  rate  0-50  in/min 

e)  Resolution  0.005  in/step 

f)  Materials,  styrofoam,  machinable  wax,  etc. 

The  polar-coordinate  milling  machine  is  shown  in  Figure  4.  The  machine 
utilizes  a  over-arm  design  in  which  adjustable  track  rollers  ride  in  a  hardened 
and  ground  V-groove.  The  overarm  can  sweep  180  degrees  across  the  top  of  the 
object  to  be  machined  and  at  the  same  time  the  workpiece,  mounted  on  the  rotary 
table  can  be  simultaneously  rotated  and  traversed  past  the  cutter.  With  this 
design  it  is  now  possible  to  machine  five  sides  of  a  workpiece  without  refixturing 
it  for  each  surface. 


Fig.  4  -  Polar-coordinate  Milling  Machine 
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Detailed  designs  for  the  polar-coordinate  milling  machine  are  contained  in 
Appendix  C. 

3.1.4  CNC  Turret  Lathe 

The  original  specifications  for  a  computer  controlled  lathe  called  for: 

(a)  2"  swing,  (b)  6"  between  centers,  (c)  1/10  H.P.  spindle  motor,  0-200  rpm, 

(d)  positioning  rate  of  0-50"/minute,  (c)  positioning  resolution  0.0005"/step, 
and  a  spindle  with  5/8-11  UNC  threads.  The  machine  was  to  be  equipped  with 
1/4”  square  shank  tools,  to  be  mounted  in  a  four-station  turret  for  machining 
aluminum,  brass,  plastic,  wood  and  other  soft  materials. 

At  the  beginning  of  the  project,  miniature  working  equipment  was  essentially 
unavailable  for  laboratory  use  and  thus  had  to  be  designed  and  constructed  from 
the  ground  up.  The  detailed  designs  for  the  miniature  lathe  are  contained  in 
Appendix  D.  However,  a  few  miniature  lathes  have  now  appeared  on  the  market  which 
satisfy  or  exceed  the  original  design  specifications.  By  combining  resources 
from  several  funding  sources  it  was  possible  to  purchase  a  commercially  available 
miniature  lathe  and  associated  tooling  rather  than  go  through  the  development 
process.  A  photograph  of  the  commercially  available  CNC  turret  lathe  acquired 
for  this  project  is  shown  in  Figure  5. 


Fig.  5  -  CNC  Turret  Lathe 

The  lathe  docs  not  quite  have  the  resolution  desired  but  it  does  more  than 
compensate  in  other  ways.  For  example  the  main  drive  motor  is  four  times  as 
powerf ul  and  it  also  was  a  six-station  indexable  turret  instead  of  the  four 
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3.3.3  CAP/CAM  Demonstration  Software 

A  demonstration  program  was  created  using  the  DCLASS  System  to  provide  a 
menu  to  design  a  particular  part  to  be  produced  on  the  lathe  and  then  transferring 
this  information  by  means  of  a  parametric  program  to  the  NC  cutter  path  generation 
routine.  Following  this  transfer  of  data  a  series  of  machine  motion  commands 
were  executed  to  produce  a  miniature  part  as  described  by  the  geometry  on  the 
CAD  system.  This  demonstration  was  also  extended  to  generate  cutter  path  moves 
on  the  milling  machine  as  well  as  to  exercise  the  storage  and  retrieval  system 
to  retrieve  various  materials  from  the  bins. 

The  demonstration  software  was  used  to  varify  the  fact  that  the  machines 
performed  as  desired  and  that  the  machine  controllers  were  adequate. 

Documantation  and  program  listings  for  this  software  is  contained  in  Appendix 
M.  Some  of  this  work  represents  the  first  phases  of  the  integration  which  is 
to  be  conducted  under  subsequent  research  activities. 


4.0  SUMMARY,  And  CONCLUSIONS 

This  development  project  was  successful  in  designing,  constructing,  and 
testing  miniature  prototype  laboratory  equipment  for  use  in  undertaking  a  series 
of  investigations  relative  to  informations  systems  for  manufacturing.  It  is 
believed,  based  on  the  results  of  this  development  project,  that  miniature  machine 
tools  can  be  used  to  provide  a  viable  alternative  to  full-sized  equipment  for 
use  in  research  and  teaching.  The  miniature  equipment  with  its  IBM  personal 
computers  and  Apple  II  microcomputers  when  linked  with  the  CORVUS  local  area 
networking  system  provided  the  basis  for  some  very  preliminary  work  in  developing 
a  fully  integrated  Manufacturing  Information  System. 

The  funding  provided  was  only  sufficient  to  develop  prototype  equipment, 
and  additional  work  now  needs  to  be  undertaken  to  enhance  this  equipment  and  to 
use  it  for  more  fully  investigating  requirements  of  a  Manufacturing  Information 
System.  It  is  believed  that  these  requirements  include  common  database 
development,  further  exploration  of  Local  Area  Networking,  and  additional  work 
on  defining  paramentric  designs,  as  well  as  developing  scheduling  and  control 
algorithms  for  the  miniature  factory. 

While  there  has  only  been  a  limited  amount  of  contract  AFOSR  and  Brigham 
Young  University  the  principal  investigators  and  research  staff  have  tried 
diligently  to  live  up  to  the  original  grant  proposal. 

Additional  funding  is  now  being  sought  from  other  agencies  and  industrial 
sponsors  to  continue  with  the  development  of  this  miniature  factory  to  fully 
exploit  the  possibilities  of  developing  transportable  Manufacturing  Information 
Systems  which  can  be  implemented  in  full-sized  factories. 

The  principal  investigators  and  research  staff  wish  to  extend  their 
appreciation  to  AFOSR  for  support  of  this  grant. 
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The  Engineering  Design  Terminal  consists  of  an  IBM  PC-XT  with  10-mb  hard 
disc,  2S6K  memory,  parallel  and  serial  parts  for  communication  to  other  computers 
in  the  system  and  to  the  combination  printer/plotter. 

3.3  Communications  and  Control  Software 

A  variety  of  software  had  to  be  written  for  use  with  the  Apple  II  process 
control  computers,  the  digital  stepping  motor  drivers,  hand  shaking  with  the 
host  computer,  and  demonstration  CAD/CAM  software  to  test  system  communication 
capabilities. 

3.3.1  Machine  Controller  Software 

Each  of  the  miniature  machines  has  several  axis  of  motion  ranging  from  two 
axis  on  the  lathe  to  four  axis  on  the  polar-coordinate  milling  machine.  Each  of 
these  axis  is  positioned  by  means  of  slo-syn  digital  stepping  motors.  As  many 
as  six  of  these  motors  can  be  controlled  from  one  stepping  motor  controller 
interface  box.  Since  each  machine  is  controlled  by  the  Apple  II  process  control 
computer  it  is  necessary  for  this  computer  to  send  command  to  each  machine  via 
the  CY512  controller  chip.  In  each  Apple  II  microcomputer  process  controller 
is  a  Z80  microprocessor.  This  Z80  microprocessor  has  been  programmed  by  Prof 
Smart  to  use  assembly  language  to  pass  data  from  the  Apple  II  process  control 
system  to  the  step  motor  controller  chips  located  in  the  step  motor  controller 
box.  Schematics  and  assembly  code  listings  for  the  machine  controller  software 
is  contained  in  Appendix  G. 

3.3.2  Communication  Software 

A  variety  of  communication  packages  were  created  to  provide  menus  for  the 
machine  control  programs  and  then  transferring  these  files  from  the  Apple  II 
process  control  computer  to  the  machine  control  unit.  Both  manual  and  automatic 
control  features  were  developed.  The  sequence  of  program  control  includes 
creating  a  text  file  containing  the  NC  machine  code  file  with  traditional  NC 
commands  using  N,  X,  Y,  Z,  and  F  functions  to  represent  line  number,  X  coordinate, 
Y  coordinate,  Z  coordinate  and  feed  rate  respectively.  The  next  piece  of  software 
was  made  to  interpret  and  run  this  command  file  using  the  CP/M  operating  system. 
The  machine  language  interface  and  communication  program  listing  is  contained 
in  Appendix  H.  In  Appendix  I  are  contained  the  operating  instructions  for  running 
the  miniature  lathe  and  the  miniature  milling  machine.  Appendix  J  contains  a 
scries  of  CNC  programs  for  the  miniature  lathe  and  milling  machine.  A  program 
written  in  Applesoft  Basic  for  manually  controlling  the  Turret  Punch  is  contanined 
in  Appendix  K.  A  variety  of  programs  used  to  control  the  Storage  and  Retrieval 
system  with  the  IBM  PC  via  the  Apple  conputcr  arc  contained  in  Appendix  M. 

The  first  program  called  STACKER.BAS  runs  on  the  IBM  PC  and  communicates  with 
the  Apple  through  the  serial  interface.  The  second  program  is  also  called 
STACKER.BAS  but  this  one  runs  on  the  Apple  computer  and  accepts  commands  from 
the  IBM  PC  to  produce  the  desired  moves  in  the  miniature  AS/RS  system. 


The  computer  has  a  lO-MB  Winchester  Disk,  and  2S6K  memory.  It  is  used  to 
generate  process  plans  based  on  pre-stored  decision  tree  logic.  This  terminal 
is  connected  to  the  engineering  design  terminal  via  a  multiport  controller  (right) 
from  which  it  receives  part  family  codes  and  part  parameter  values.  As  mentioned 
above,  these  codes  and  values  are  then  used  down-stream  by  the  process  control 
computer  to  generate  machine  motion  commands. 


The  engineering  design  terminal  shown  in  Fig.  10  provides  both  a  monochrome 
menu  display  and  a  color  graphics  display.  A  three-dimensional  graphics  software 
package  and  tablet/arm  have  been  ordered  using  university  funds  for  use  with 
this  equipment.  Composite  parametric  designs  based  on  group  technology  principles 
have  been  implemented  with  this  system  using  a  '.ew  version  of  the  popular  BYU 
Part  Family  Classification  System. 

It  is  expected  in  a  subsequent  design  of  the  overall  system  that  other 
intelligent  terminals  will  be  added  to  perform  functions  of  bill  of  material 
processing,  master  scheduling,  market  forecasting,  and  management  spread-sheet 
analysis. 
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Fig.  10  -  Engineering  Design  Terminal  with  Monochrome  and  Color  Graphics  Dispiay 


A  special  switch  was  designed  and  constructed  by  Prof  Smart  to  permit  the 
stepper  motor  control  to  activate  an  AC  motor  upon  request  by  utilizing  an 
opticallyy  coupled  trial  circuit.  For  example,  when  a  spindle  motor  is  to  be 
turned  on,  the  control  program  sends  a  command  to  the  CY512,  Stepper  Motor 
Controller  device.  The  CY512  accepts  the  command  and  sets  a  logic  bit  at  one 
of  its  output  pins.  This  bit  activates  the  optically  coupled  triac  power  switch 
and  the  motor  turns  on.  Each  computer  controlled  power  switch  is  capable  of 
controlling  three  115  volt  AC  circuits  of  up  to  12  amps  each.  Documentation  and 
schematics  for  the  power  switch  is  contained  in  Appendix  F. 


In  the  present  configuration  the  host  computer  shown  in  the  schematic  of 
Fig.  1  would  actually  be  serving  a  dual  function.  It  would  be  used  for  process 
planning  and  scheduling  as  well  as  performing  the  functions  of  the  host  computer 
The  host  computer  functions  involve  assembling  data  required  for  production, 
hand-shaking  with  the  process  control  computers,  and  down-loading  parametric 
data  to  be  used  in  machine  control  and  cutter-path  generation.  A  photograph  of 
the  IBM  PC-XT  host  computer  used  the  the  miniature  laboratory  as  part  of  the 
manufacturing  information  system  is  shown  in  Fig.  9. 
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Fig.  9  -  IBM  PC-XT  Host  Computer  System 


Under  the  present  configuration,  one  process  control  computer  is  used  for 
controlling  each  machine.  Each  Apple  computer  was  configured  with  48K  or  main 
memory,  64-K  ROM  cards,  and  Microsoft  Softcards  to  facilitate  running  the  CP/M 
operating  system,  and  a  serial  interface  for  communication  with  the  IBM  PC-XT 
host  computer. 

One  of  the  six-axis  stepper  motor  controllers  with  integral  power  supply 
is  shown  in  Fig.  8.  This  unit  is  interfaced  directly  to  the  Apple  II 
microcomputer  process  control  system  by  means  of  a  parallel  interface  cable. 


Fig.  8  -  Six-axis  Stepper  Motor  Controller  and  Power  Supply 

The  stepper  motor  controller  was  built  by  Robotic  Synergy  of  Salt  Lake 
City.  This  controller  contains  the  popular  CY512  stepper  motor  control  circuit. 
This  circuit  provides  automatic  acceleration  and  deceleration,  allows  various 
slewing  rotes  and  provides  synchronization  input  and  output  signals. 


Some  work  still  remains  to  be  done  on  the  robot  manipulator  to  bring  it  to 
the  desired  level  of  positioning  accuracy  and  to  develop  required  interchangeable 
end-effectors  needed  to  handle  a  variety  of  materials. 

Some  work  was  done  in  investigating  various  types  of  feed-back  and  adaptive 
control  systems  such  as  could  be  used  with  eithc.  stationary  or  mobile  robots, 
but  because  of  problems  in  getting  the  robot  operational,  these  features  have 
not  been  incorporated. 


3.2  Computing  and  Control  System  Hardware 

Designs  were  made  and  prototype  equipment  was  fabricated  or  purchased  to: 
(a)  control  the  stepper  motors  used  for  positioning  each  of  the  various  machine 
axes,  (b)  remotely  control  spindle  drive  motors,  and  (c)  to  perform  required 
computations  for  design,  planning,  scheduling,  and  transfer  of  data  between  the 
host  computers  and  process  control  computers. 

3.2.1  Equipment  Controllers 

Each  of  the  miniature  machine  tools  is  positioned  by  means  of  digital  stepper 
motor  drives  attached  to  ball  screws  or  to  special  cogged  belts.  These  drives 
are  in  turn  controlled  by  means  of  stepper  motor  drivers  which  act  under  direction 
of  Apple  II  microcomputers  which  serve  the  function  of  process  control  computers. 

One  of  the  Apple  II  microcomputers  is  shown  in  Fig.  7  along  with  the  Corvus 
winchester  shared-disc  system. 


Fig.  7  -  Process  Control  Computer  and  Shared  Winchester  Disc 
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station  turret.  An  attempt  was  made  to  purchase  the  machine  without  a  control 
unit  but  to  no  avail.  The  controller  will  be  by-passed  or  removed  as  it  is 
integrated  into  the  manufacturing  information  system. 


3.1.5  Industrial  Robot  Manipulator 

As  with  the  lathe,  there  was  not  a  viable  miniature  robot  available  at  the 
start  of  the  project.  Consequently,  designs  were  made  and  a  prototype  unit  was 
constructed.  Original  specifications  for  the  five  axis  robot  manipulator 
included; 


a)  Lifting  capacity 

b)  Range 

c)  Positioning  accuracy 

d)  Positioning  rate 


1  lb. 

8"  X  17" 

±  .005" 

200  in/min 


The  robot  is  shown  in  Fig.  6  alongside  other  equipment  to  be  used  in 
developing  the  integrated  manufacturing  system  and  evaluating  system  performance 
under  a  range  of  operating  conditions. 

Detailed  designs  for  the  Industrial  Robot  Manipulator  are  contained  in 
Appendix  £. 


Fig.  6  -  Industrial  Robot  Manipulator  (Foreground) 
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Detailed  Design  for  the  Miniature  Sheet-metal  Turret  Punch 
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Detailed  Design  for  a  Miniature  Polar-coordinate  Milling  Machine 


OMA^TSMAN  fRIPAMt  1  COPT  ANO  ACtAIN  O«l0INAt.  MHO  PMOTOCOPIIt  TO  VeHOOH  AND  AACTOAT  AUACMAtl 


CO^T  AMO  AtTAIN  OAIOIMAI.  ttWO  AMOTOCOPIlt  TO  VfNOOA  *WO  AACTQAT  AVACHAHWQ  AOIWT.  |  I  PAt^AAi  »  CO^T  *NO  AtTAIW  ORIOINAt-  ilMO  AMQTOCOTl 


CO^r  AMO  MCTAtM  OAlOrwAC  tfMO  rMOTOCOPIft  TO  VCNOOA  AMO  ^ACTOMV  ^WMCMAtlMO  AOtMT. 


HITAIM  OMHIiNAL.  MMO  ^HOTOCOfttt  TO  VtNOOA  AMO  VACTOAV  PUffCMASiMO  AOtMT. 


C79s'2S.  ’j)  7/!/^  p  y>/PIZ 


C^/?/v/^/77h^  /yzp^IA  C  /a^^/  7 


RD-R152  715  MRNUFACTURING  INFORMATION  SVSTEM(U>  BRIGHAM  VOUNG  UNIV  2/3 
PROVO  UT  COMPUTER  AIDED  MFG  LAB  D  K  ALLEN  ET  RL. 

26  DEC  84  RF0SR-TR-85-e275  RFOSR-82‘8253 


UNCLASSIFIED 


F/G  13/8 


NL 


MICROCOPY  RtSOLUIION  lESI  CHARI 


t£a4  <S>  —  As  aA/LL 


s^cs. 

(C.  sraac) 


J 


z 


T.  00/ 


j:  7^ 

04-  l^cAcas) 

'To  atfaca/  ' 
F^/Z/9^£r 


SEc/ro/^  4-A 


5.0/8 


^//c/  k/aij: 


/TB-j 


1 


XT£^/^S  T/^r  GO  y\/ir/^  ^  20 

j  fig'Vt?/v,  oj’.  j  2  ';e^(^/^6D 

T^0i/sr  ^vAsf/ez.  -  -go/zS  ^  2 

5A^7=’  —  fc>/z  J^"  ^  2  7^S-(pu/^ec> 

Wo^Ai  -  Z4  T/TCf^ ;,  i^"w/i£j  T^P.j 

STOCK  ~lo/s/y£-  ~P/^oi^crs  ^  JQSS5-\/2 


2.745'  . 

^5''  . 

\ 

\ 

/  c . 

^  - 

S\/Ap  P/jij^x. 

Cz  7^1t;C£^j 

'  ^ 

/ 

/^ 

/■ 

3/4 


%Z<A 


Q. 


7-'fi:y~  'BKS.  pl£r£- 


J.  /6/>/l 


^(./C>E  707='  I 


(jiLC//*t/fyit/ii^ 


OC3^ 


BRIGHAM  YOUNG  UNIVERSITY 


OWMIlMAk 


Mwwmimiiumim 


•  <=> 

1  O  w 

I  ^  2  Z 

i  o  o 


iiowAi-  Mwe  pwoTetorm  to  vtmoH  and  rAcroAT  auacmaiiao  aoint. 


ML-1  Replacement  Bearln/;  (1  ea,  e^d)|  (  [  Toyo 


eo^  AMO  ••tAm  ONHIiMAL.  MNO  ^Moroco^ltt  TO  VtHOOA  AMO  PACTOAT  POACmaSIMO  AOtMT.  I  1  OAAPTtIPAA  PAIPAAI  »  COPT  AMO  AtTAIM  OAlOtMAV..  MAO  PMOTOCOPltt  TO  TlAOOA  AMO  PACTOAT  PUACMAtlAO  AOCMT 


APPENDIX  D 


Detailed  Design  of  Computer  Controlled  Lathe 


r-  -  -  ■ 


V 


jrTBAyl  42  -  S//V&  As  LAese  M/lL 

45  -  SAM&  As  LAA^G&  /^/IL 

xreut  44  -  As  LAM^<se  t^/LL 

xr&M  4s  -  Saha  as  laka  m/ll 

XrAf<A  44>  —  SA/AA  As  LAASA  f4/lL 

4  z  'AS9u/a£p  wcLue>6s  o/^e- 
m/tA  /t£-m  zo\ 


TrAM  47  - 
Xta/A  48  - 


t4>7'  A^AAT^Atp 

SAaAA  as  LAASA  /4/AL  AXC&^r 
ONLy  A  T^&pi/Z^P 


.XT£^  4‘7--  SAyfA  AS  LAASA  M/LL 

XrSM  S>o-  SAMA  As  LA/^sa-  M/LL  AxcA/^'f 

ot^ty  4  XA(pi///eAo 

'TTAM  5/  -  SAMS  As  LA^<SA  /'T/cL 
ZTAM  5Z  -  SAMS  AS  lAJSSA  M/LL. 
xts^  ^3  —  /AoT  a/aazaza 
XrA/4  ^4-  /4AAPA-T? 


Zr^M  Z5  -  A/ot  A/£&lP£rV 
■rr£Af  2<^  -  *54^  AS  cA^etse  /^zL 
xrefA  27  -  SA/^e  as  H/ll 


l^A/^rs 

ZT£/^  28  -  ‘5>A/^£  AS-  LAASe-  H/LL 

XT£/^  27-  ^Af4£-  AS  LAX<SA  f4lLL 

Z'Tif/W'  30-  S^/AA  AS  LAA&A  Af/CC.  AACepT 
US&  AfL  /9/2  /Asrs^ff  cs  All  1851 

XTA/A  3/  -  SAAfA  AS  LAA&6-  M/LL  AXCOpT 

OIZVAK.  24GC£--Z(^0-£  j  Z<^o  ZMcAAS. 
Z&.  /80  "  c/-ec, 

Xr£M  3Z  -  SAMA  As  L4/xoA  M/IL  &XCAf^T\ 

1  o/^OAiL  /(Z>  QCF  -  4  A^-  j  225  P/TcaAs 

\ 

I 

XTSAf  55'  7/OT  /A/SAOAV  I 

ZTAA4  54-  /VO  7  aAAOOAZ? 

X7A/4  55-  fAor  /^e80&v> 

\ 

ZrSAf  3<2>  -  TAoT  /4AB0£I? 

ZTAPt  37'  "^^AfA  As  LAP6A  /ZXL 

■ZT£f4  '  SAAfA  As  LA  ASA  Af/ZL 
ZTSAf  Sf '  'SAa/A  as  LAPGA  Af/U 

(4.  ^e(pU/J4£-/Z  tAAT^tCAl  //JCLU12&6  7^^  T t^AO 

XTAaL  40-  ‘SAMA  As  LAPSA  Ai/LL 
\rTA/^  4!  -  U/0/2M  GSXP,  Z4  P/Tcp .  4" PD.  ^  ^ 

I  ^  "STocF  "V/z/vA  P/^ffucTS  ^  ^ I8&A- //24o9i 

CT^£fitov6  Hue  Xmip  Ti/^/LL  To  AfXrcA 


APPENDIX  E 


Detailed  Designs  for  Miniature  Industrial  Robot  Manipulator 


BRIGHAM  YOUNG 
UNIVERSITY 


COPr  and  PtTAIN  OniOINAL.  tlNQ  rMOTOCO^Ift  TO  VtNOO*  AND  ^ACTONT  rUMCMAtlNO  AOtNT. 


corr  ANO  MtTAIN  OAlOiNAI^  tlMO  ^MOTOCO^Ht  TO  VtMOOfl  AMO  VACTOMT  rWMCMAtl 


NQ  ^MOTOCOrtll  TO  VIMOOA  AMO  AACTOMT  AMACMAtiNO  AOIMT 


MIOHAM  VOUNQ  UMIVERSITT 


BRIOHAM  rOUNQ  UNIVERSITr 


BPIOHAM  YOUNQ  (JNIVEPSITy 


mCRO-eC  3.4  01-Df:-80 


PWE  1-7 


45 

20 

3C 

20 

24 

52 

41 

54 

45 

VERATE;  Dfi 

•GATE  =  r  ; 

20 

3D 

20 

24 

44 

41 

43 

54 

VEFAH:  06 

•FACTOR  =  «•  ; 

4F 

52 

20 

3D 

20 

24 

20 

48 

41 

4C 

VEHLST:  OB 

•  HALF  STEP  <• 

44 

20 

53 

54 

45 

50 

20 

24 

20' 

44 

55 

40 

VEFLST:  DB 

•  FULL  STEF  i‘ 

4C 

20 

53 

54 

45 

50 

20 

24 

43 

4C 

4F 

43 

yECUN:  08 

•CLOCKUISE  «• 

4£ 

57 

49 

53 

45 

20 

24 

43 

4F 

55 

4E 

VECCUh:  DB 

•COIKTER  CLOCKUISE  r 

54 

45 

52 

20 

43 

4C 

4F 

43 

4E 

57 

49 

53 

45 

20 

24 

5C 

55 

40 

53 

PEQUA.:  DB 

‘PULSES  FROM  HOME  = 

45 

53 

20 

44 

52 

4F 

4D 

20 

4S 

4F 

40 

45 

20 

3D 

20 

24 

1 

1»  sm:  C»«RArrER  to  the  CY512 

i 

:  THIS  RO'JTINE  SENS  THE  CtWRACTER  IN  THE  'A  REE 
;»  TO  THE  AHIVE  CY  512  MOTOR  CONTROLLER 

tllfitiliifftilffiliftiffltffffifiiffififfiitHfiifiiiiffil 

iBfTEP  THIS  ROL^TINE  UITH  THE  ASCII  CHARAriER 
currently  LOADED  IN  THE  'A'  REGISTER. 


CD  04A2 

SENDCY: 

call 

^REG 

iSAVE  ACTIVE  REGS. 

FL  2A  0322 

LD 

lY,<CYaRL) 

;Sn  THE  P01N~ER  TD  AHIVE  CY512 

FD  CB  00 

54 

SQ4AIT; 

BIT 

2,(IY) 

[TEST  THE  trY5:2,  IS  IT  READY”"- 

CA  0520 

JP 

Z.SCUAIT 

ii'H  BUSY,  Please  «]t. 

E4  7F 

AND 

07FH 

iNAKE  SURE  CHF  IS  ASCII. 

FD  77  04 

LD 

<1Y>4),A 

;PLACE  char  IK  CY  DATA  REGISTER 

2E  41 

LD 

L,41H 

iSn  I/O  REOUEST  BIT 

FD  75  00 

LD 

(IY),L 

FD  C6  00 

54 

SCHDSK: 

BIT 

2,<IY) 

HANDSHAKE  UITH  CY512  READY  FLAG 

C2  0531 

JP 

N2, SCHDSK 

UAIT  IKTIL  CHAR  IS  TAKBY 

2E  40 

LD 

L,40H 

RESn  I/O  ttOVEST  BIT. 

FD  75  00 

LD 

(1Y),L 

•  »  t 

CD  04B9 

CALL 

RESTOR 

RESTORE  PROCESSOR  REGS. 

CF 

RH 

EXIT  THE  SPCCy  ROUTINE... 

ttliiilfIffifilfilrftfftifiMfifflitirffiitiHllflltIfl 

»  GET  A  CMARa::TER  from  THE  CY512 


M49 

CO  0581 

VOSH:  CALL 

PRINT 

;...'CCU'  (h  M  OISPLAT. 

044C 

DO  CB  05  7E 

BIT 

7,(IX«5) 

[IS  M  'HALF  STEP'  BIT  SH  ? 

M50 

CA  0466 

JP 

2,V£FS 

|NO,  60  PRINT  'FULL  STEP'  DISPLAY, 

0453 

11  04CF 

LD 

OE.yEHLSTT 

YES,  PRINTOUT  'HALF  STEP'  09  SCREEN. 

0456 

CO  0581 

9€EXn;  CALL 

PRINT 

0459 

CD  0M3 

CALL 

CRLF 

0453 

CD  0669 

CALL 

RESTOR 

RESTORE  IX  REGISTER  AND.... 

045F 

C9 

RO 

...EXIT  THIS  ROUTINE. 

0460 

11  04E7 

VECb;  LO 

DE.yECMI 

PRINTOUT  'CW'  09  .... 

0463 

C3  0449 

JP 

VEDSCT 

;..TH£  SCREEN. 

0466 

11  fl40E 

yE^S:  LD 

oe.veflst 

[PRINT  'FULL  STEP  09 . 

0469 

C3  0456 

JP 

VEEXIT 

..THE  SCREEN. 

0463 

06  OC 

yEFn:  LD 

6,0 

HE  HILL  OUTPUT  4  CHR'S.,.. 

046E 

7E 

VOlOO-i  LD 

A,(Hl) 

TRANSFER  CHR  FROM  THE  CHR  BUFFER... 

046F 

CO  0519 

CALL 

SEN031 

SEND  TO  THE  CY512,  '6'  HILL  COUNT  THB1 

0472 

23 

INC 

Hl 

INC  CHR  POINTER. 

0473 

04 

INC 

6 

INCREMENT  THE  CONT... 

04’4 

CB  50 

BIT 

2,B 

..AND  SEE  IF  4  CHR  S  SENT  YH  ’ 

0476 

CA  046E 

JP 

2,y0L00F 

NOPE,  DO  ANOTHER. 

0479 

39 

RH 

047A 

CO  06A2 

1 

l^TTCh:  Call 

salireb 

SAVE  THE  'X'  REG. 

0470 

3E  00 

LO 

A,0 

CL&lR  THE  BYTE  COUNTER. 

047F 

2A  0497 

LD 

HL,(yC0UNT) 

LOAD  THE  BYTE  COlhl  INTO  'HL'  REG. 

0482 

DC  21  0498 

LO 

IX, NUMBER 

SET  PNTR  TO  THE  DATA  BUFFER. 

0486 

CO  0541 

LF.OOF;  CALL 

6ETCY 

60  SET  A  DATA  BYTE.. 

0489 

00  73  00 

LO 

(IX), E 

..AND  STORE  IT  IN  THE  DATA  BUFFER. 

0483 

DO  23 

INC 

IX 

INC  THE  BUFFER  POINTER  AND... 

048E 

30 

INC 

A 

..THE  BYTE  TWNS’^ER  COUNT... 

04B' 

60 

CP 

L 

mJl  HE  FOCHEL  AlL  THE  CHP'S  YH  ? 

0490 

32  0484 

JP 

N2 ,VFL00P 

NO,  60  Sn  ANOTHER  CHR. 

04'3 

30  0689 

CALL 

RESTOR 

YES,  RESTORE  'X'  REG  AND... 

0494 

39 

RET 

..EXIT 

049" 

00 

yOXKT; 

0 

;  this  is  the  Cr512  DATA  BTTE  BU'^FER. 

0496 

00 

< 

NlteEP; 

0 

'N'  PULSEC  coon. 

049> 

00 

0 

049A 

00 

SiO^E; 

0 

SLOPE  coon. 

0496 

00 

RA’E: 

0 

FkxTE  coon. 

049C 

00 

FACTOR ; 

0 

FAaoR  coon. 

049D 

00 

STA-'US: 

0 

STATUS  coon. 

049E 

56  20  30  00 

VZERC:  08 

-V  O', 13 

THE  ’V  0*  CHR  STRING. 

0V.2 

'6  20  32  00 

yirfC ;  08 

•V  2', 13 

THE  'V  2*  CHR  STRING. 

mi 

56  20  33  00 

VT>«EE;  DB 

•U  3', 13 

THE  'V  3*  CHR  STRING. 

OVV^ 

4E  55  40  42 

* 

L©«1B;  DB 

•Nl^BEP  =  «• 

,SCREB9  OUTPUT  FOlLOUS.... 

0««E 

45  52  20  30 

0482 

20  24 

0464 

53  43  4F  50 

LEkOP;  DB 

•SLOPE  =  V 

SLOPE  =  % 
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THIS  ROJTINE  ISSUES  'V  0'  ,'V  2',  AND  'V  3' 

70  THE  ACTIVE  CY512  AND  PRINTS  Wn  ITS  STATUS. 
PULSES  FROM  HWE,  NIWBER,  HATE,  SLOPE,  FAnOR, 
OIRECTIlh,  AND  STEP  MODE. 


03C3 

CD  06A2 

VERIFY :  CALL 

SAVREE 

i 

03C6 

CD  0S8D 

CALL 

HOME 

;CLttR  THE  DISPLAY. 

03C9 

21  049E 

LD 

HL.VZERD 

;SB10  'V  0'  TO  THE  D  512... 

1)3CC 

CD  046C 

CALL 

VEOTPT 

I . 

03CF 

11  0505 

LD 

DE,PE8UAL 

;PNT  'PULSES  FROM  HOME  ='  AND.. 

03D2 

CD  0581 

CALL 

PRINT 

• 

. . 

03D5 

3E  00 

LD 

A,0 

;CLB1R  THE  COIKT  USED  TO  GH... 

03D7 

CD  0541 

VELOOP:  CALL 

GETCY 

;F1VE  BYTES  OF  DATA.. 

03DA 

CD  0580 

CALL 

UlCHP 

5..FR0M  THE  CY  512.. 

03DD 

3C 

INC 

A 

;..THAT  HAKE  UP  THE  PULSE  COUNT. 

03DE 

FE  05 

CP 

5 

JARE  WE  DONE  YEY  ? 

03ED 

C2  03D7 

JP 

N2 , VELOOP 

;N0,  60  GET  ANOTHER  BYTE. 

03E3 

CD  0Si3 

CALL 

CRlF 

;YES,.... 

03E6 

21  04A2 

LD 

HL.VTUO 

;NOU  SEND  'V  2'  TO  THE  CY  512. 

03E9 

CD  0465 

CA.L 

VEOTPT 

$«#•••• 

03EC 

3E  06 

LD 

A, 6 

{PREPARE  70  GET  6  BYTES  OF  DATA... 

03EE 

32  0497 

LD 

<VC01KT),A 

{...FROM  THE  CY  512.. 

03F1 

CD  047a 

CALL 

VFHCH 

{GO  GET  THEM. 

03F4 

21  0416 

LD 

HL.VTHREE 

{NOW  SEND  'V  3'  TO  THE  CY  512. 

03F7 

CD  0460 

CALL 

VEOTPT 

• 

!«•••• 

03FA 

3E  05 

LD 

A, 5 

{RETRIEVE  5  BYTES  OF  DATA  FROM  CY512.. 

03FC 

32  0497 

LD 

(VCOIITD.A 

{..(WERWRITING  I'ST  5  BYTES  OF  .... 

03Ff 

CD  04 7A 

CALL 

VFHCH 

{..PREVIOUS  FHCH. 

f 

iUE  NOU  HAVE  THE  DATA  AND  WILL  PRINT  OUT  A  STATUS  DISPLAY. 

0402 

DD  21  049c 

VEDS^i;  LD 

IX, NUMBER 

{SO  UP  POINTER  TO  STATUS  BUFFER. 

0406 

DD  66  00 

LD 

H,<IX) 

{GET  THE  'PULSE  COtWT'  .. 

0409 

DD  6E  O: 

LD 

L.dXM) 

{..READY  FOR  PRINTOUT. 

04d: 

11  D4AA 

LD 

DE,V01UNB 

(PRINT  'NIWBER  =  '  ON  ... 

040  F 

CD  058; 

CALL 

PRINT 

{...THE  DISPLAY 

0412 

CD  058: 

CALL 

BDCQNV 

{..AND  TYPE  OUT  THE  COINT. 

0415 

26  00 

LD 

H,0 

{GET  THE  'SLOPE  CNT'  READY.. 

0417 

DD  6E  02 

LD 

L,(IX*2) 

DE.VESLOP 

{..FOR  PRINTOUT. 

041A 

11  0484 

LD 

{PRINT  'SLOPE  =  '  (W.. 

041D 

CD  0561 

CALL 

PRINT 

(...THE  DISPLAY. 

0420 

CD  05BC 

CALL 

BOCOff' 

(COWERT  70  ASCII  4  PRINT  SLOPE. 

0423 

26  OG 

LD 

H,0 

(GET  'WTE'  COIKT  READY... 

0425 

DD  6E  03 

LD 

L,(IX+3) 

{...FOR  PRINTOUT. 

0428 

11  04BD 

LD 

DE.VEWTE 

(PRINT  'RATE  =  '  ON  ... 

0428 

CD  0581 

CALL 

PRINT 

{..THE  DISPLAY.... 

042E 

CD  05BC 

CALL 

BDC(WV 

{..AND  COK'ERT  70  ASCII  4  PNT  WTE. 

0431 

26  00 

LD 

H,0 

{GET  'FAHOR'  READY... 

0433 

DD  6E  04 

LD 

L,(IX*4) 

{..FOR  PRINTOUT. 

0436 

11  04C5 

LD 

DE.VEFAn 

(PRINT  'FACTOR  ='  »... 

0439 

CD  058; 

CALL 

PRINT 

{..THE  DISPLAY. 

043C 

CO  0580 

CALL 

BDC(lf7 

{..COMJ  TO  ASCII  4  PRINT  OUT  FACTOR. 

043F 

DD  CB  05  66 

BIT 

4.(IX»5) 

{IS  THE  'CCW'  BIT  SH  IN  'STATUS'  BYTE  ’ 

0443 

CA  0460 

JP 

Z.VECU 

{NO,  60  PRINTOUT  'CM'  «  DISPLAY. 

0446 

11  04F2 

LD 

DE,VEC(Ui 

(YES,  PRINT  . 

mCfiO-BO  3.4  Ol-Dtc-80 
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0335 

01  0025 

DTASTR!  LD 

BC,37 

;PREPME  TO  CONPARE  37  CHARACTERS 

0338 

21  0388 

LD 

HL.CHRlST 

;1N  THE  CHAItaaER  LIST  WITH 

033B 

ED  B1 

CPIR 

;CmRACTER  IN  THE  'A'  RESISTER.. 

033D 

C2  036D 

JP 

N2,irfMLD 

;1S  THE  CHARACTER  VALID” 

0340 

FE  56 

CP 

•V 

;1S  CHR  A  'VERIFY  ? 

0342 

0- 

JP 

Z.DTVFT 

;YES,  60  DO  A  'VERIFY. 

0345 

FE  51 

CP 

•Q- 

;IS  CHR  A  'DUIT'  ? 

0347 

CA  0384 

JP 

2,SQUn 

;YES,  60  sn  'D0NEFL6'  TO  STOP  'CR'. 

034A 

FE  OD 

CP 

13 

;IS  CHR  A  'CARRIA6E  RHURN'  ? 

034C 

C2  0353 

JP 

N2, VLDCHR 

;ND,  PROCESS  CHARACTER. 

034F 

FD  CB  00  CE 

SET 

1,(IY) 

JYES,  SET  'CR'  FLAG  TO  STOP  LATER  XTFR. 

0353 

FE  2C 

VLDCHR:  CP 

•  • 

1 

;YES:  NOU  SEE  IF  ITS  A 

0355 

C2  035E 

JP 

N2,SEND 

;NC,  IT'S  GOOD  AS  IS  .  USE  IT. 

0356 

FD  CB  OC  DE 

SET 

3,(1Y) 

;SET  UP  A  CY512  'RESET'. 

035C 

3E  OD 

LD 

A, 13 

;Ct«NG£  THE  ','  TO  A  'CARRIAGE  RETURN'.. 

035E 

CD  0519 

SEND:  CALL 

SMCi 

;SB1D  THE  ClWRACTER  TO  THE  ACTIVE  CY512. 

0361 

FD  CB  00  5E 

BIT 

3,(IY) 

;SIW.L  ME  'RESH'  ? 

0365 

C2  036C 

JP 

N2,DTAE>rT 

t  .  •  •  •  •  » 

0368 

FD  CB  00  9E 

RES 

3,(IY) 

;CL£AR  RESn  FLAG. 

0360 

c? 

OTAEXT; 

RET 

;EXIT  THE  DATA  STRING  SUBROUTINE.. 

036D 

FD  CB  00  CE 

lf*3ALD:  SET 

1,(1Y) 

;Sn  THE  'DONE  FLAG'. 

63'’1 

11  0380 

LD 

D£,WlW& 

;TYPE  ERROR  MESSAGE  'IMJALID  CHilAND'. 

0374 

CD  0581 

CALL 

PRltTT 

• 

t  *  *  * 

0377 

C3  036C 

JP 

DTAEia 

;... 

037A 

FD  CB  00  CE 

OTVFT:  SET 

1,(1Y) 

}SET  DONEFLG  AND... 

037E 

CD  03C3 

CALL 

VERIFY 

;..60  RUN  A  CY512  'VERIFY'  ON  ACTV  UNIT. 

0381 

C3  036C 

JP 

OTADa 

;..AND  EXIT. 

0384 

FD  C8  00  CE 

MUIT:  SO 

1,<1Y) 

5SET  DCNEFlG  and... 

0388 

C3  035£ 

JP 

SEND 

i..SEND  '6'  COltWID. 

0388 

2C  41  42  43 

CHRIST:  DB 

•,ABCDEF6H1JLNOP(IRSTIWY^-01234567B9  '.ISiVLlD  CHAR  LIST 

038' 

44  45  46  47 

0383 

48  49  4A  4C 

0397 

4E  4F  50  51 

0398 

52  53  54  55 

039F 

56  57  58  28 

0^3 

2D  30  31  32 

0^7 

33  34  35  36 

03AB 

37  38  39  20 

03AF 

OD 

03BO 

49  4E  56  41 

wim-.  OB 

•IMJALID  C(m»C',13,10,7,'«' 

03B4 

4C  49  44  20 

03B8 

43  4F  4D  4D 

03BC 

41  4E  44  OD 

83C0 

OA  07  24 

KftiilfiitiitliiflllfttftHMHHiitfiliilillttlfillfiifil 

f  verift 

f  n  512  INPin  DATA 


mCRO'M  3.4  01-D*c-80 


W6E  1-3 


02D&  4C  4^  44  2t 
02DC  43  48  41  52 
02EO  41  43  54  45 
02E4  52  21  IE  lA 
02E8  07  24 


02EA 

32  0  2^ 

CDCYUD:  LO 

(ACYNIM.A 

UPDATE  THE  'CYNIN  AND 

02ED 

06  41 

SUB 

65 

02EF 

32  o?e;- 

LD 

(CYNlN'.A 

02F2 

CD  03(; 

CALL 

CYUPDT 

60  UPDATE  THE  ACTIVE  CY512  ADDRESS. 

02F5 

C3  02:6. 

JP 

CDEXIT 

•• 

02F6 

32  0?^■ 

CDBDJO;  LD 

(ABOARD)  ,A 

UPDATE  THE  AHIVE  'BOARD  .. 

02F6 

D6  31 

sue 

49 

02FD 

32  02SO 

LD 

(BOARD),  A 

... 

030L 

CD  0  30: 

call 

CYUPDT 

60  UPDATE  ACTIVE  CY512  ADDRESS. 

0303 

C3  02'J- 

JF 

i 

CDEXIT 

•  • 

I 

•UPDATES  THE  ACTIVE  CY512  STATUS 

CCKTROL,  AND  DATA  REGISTER  ADDRESSES 

0306 

CD  0iA2 

CYUPDT:  CALL 

»¥VRE6 

0309 

EO  58  Li'i': 

LD 

DE,(CyNl^l 

C01B1NE  'CYNUN'  AND 

030D 

2A  02b; 

LD 

HL,( BOARD) 

..'BC^RD  TO  GENERATE  THE 

0310 

CE  0! 

RLC 

L 

..ACTIVE  CY512  STAT,  CTRl, 

0312 

CB  0! 

RLC 

L 

..AND  DATA  REGISTER.. 

0314 

CB  05 

RlC 

L 

..ADDRESSES. 

0316 

19 

ADD 

HL,DE 

... 

0317 

11  E0=: 

LD 

DE.STAT 

( 1 1 

031A 

19 

ADD 

HL,DE 

. . . 

0318 

22  o-i: 

LD 

(CYCTR.),Hl 

SAL'E  THE  ADDRESS  OF  CY512  CTRl  REG. 

031E 

CD  Obi- 

CAlL 

RE ST OR 

0321 

C9 

RET 

EXIT  THE  ACTIVE  CY512  UPDATE  S/R. 

0322 

00 

CYCTRl!  0 

STORE  THE  ACTIVE  CY512  CTRL  REG  HERE. 

0323 

OO 

Cl 

f 

CYDATA  ADDRESS  IS  CYCTRL  ADDRESS«4. 

0324 

CD  03:;- 

CDVFt:  call 

VERIFY 

;GO  EXECUTE  THE  'VERIFY'  COTflAND. 

0327 

C3  C20i 

JP 

CDEXIT 

;RETU»>  TO  EXIT  CHECK. 

DEFINITlCh  FOLLOWS 


032A 

51  31  32  41 

WDLST:  DB 

•ei2ABC’ 

;VAL1D  CMIAND  CHARACTERS 

032E 

42  43 

0330 

41  42  43 

CDLSTI:  OB 

•ABC* 

jVALID  CY5I2  CHAR'S. 

0333 

31  32 

C0LST2:  OB 

M2’ 

{VALID  BOARD  NIUBERS. 

(»TA  STRING  PROCESSING  ROlHINE 

THE  CWfWrrER  IN  THE  'A'  REGISTER  IS  CWfiftRED  AG4INS7 

THE  WftLIO  CHARACTER  LIST,  AND  IF  VALID  - 

S0IDS  IT  TO  THE  AHIVE  CY512.  ‘.’'S  ARE  CHANGED  TO  CARRIAGE  RETWW'S. 


NACRO-80  3.4 

oi*Dtc-eo 

BASE 

1-1 

OOOA 

SnSTR 

EBU 

10 

;READ  IN  A  BUFFER  STRING 

*i»0D 

CR 

EBO 

13 

;EXECJTES  A  CARRIAGE  RHURN  ON  SCREEN 

.OA 

LF 

EBU 

10 

•.EXECUTES  A  LINE  FEED  SCREB^ 

D  1/0  LOCATltWS 
I  PfiOOi^  UARIABLES 


0007 

F022 

EOFO 


SLOT  EOL! 
TOPLINE  EBU 


STAT  EBU 


SCYDRIWER  APPLE  'SLOT'  LOCATION. 


11.SLOT.10H 


«  INHIALIZE  SCREEN  AND  VARIABLES 


02DC 

21  17FF 

BXBt:  LD 

Hl,17FFH 

jSn  UP  USER  STACK  POINTER. 

0203 

22  069E 

LD 

(USRSTK),HL 

0206 

21  1000 

LD 

HL.IOODH 

;Sn  UP  SYSTB1  STACK  PNTR. 

0209 

F9 

LD 

SP,HL 

•  •  •  • 

020A 

CD  058E 

CALL 

H(h£ 

jCLEAR  THE  DISPLAY  SCREEN. 

020  D 

11  0750 

LD 

DE, HEADER 

ROUTINE  TO  URITE  HEADER 

0210 

CD  0581 

CALL 

PRINT 

;TD  THE  SCREEN. 

0213 

FD  21  027C 

LD 

lY.FLGREG 

USE  lY  TO  POINT  TO  FLAG  REGISTER. 

0217 

3E  04 

LD 

A, 4 

0219 

32  F022 

LD 

(TOPLINE), A 

SET  TOP  Of  SCREEN  4  ROUS 

021C 

CD  058D 

RESTRT!  CALL 

HOiE 

.CLEAR  THE  SCREBl 

021 F 

CD  0306 

CALL 

CYUPDT 

SET  UP  CYNLM  ADDRESS. 

0222 

CD  056C 

CALL 

REsn 

, 'RESET'  THE  CY512'5. 

0225 

3E  3E 

LD 

A, 62 

0227 

32  0710 

LD 

(BUFF), A 

SET  STRING  BUFFER  TO  MAX  LB(6TH 

022A 

3E  00 

LOOP:  LD 

A,0 

CLEAR  LOOP  FLAGS 

022C 

32  027C 

LD 

(FLeREG),A 

•  •  • 

022F 

01  003E 

LD 

BC,62 

LOAD  THE  INPUT  BUFFER  WITH... 

0232 

21  06DO 

LD 

HL.CRRTN 

..CARRIAGE  RETURN  SYMBOLS 

0235 

11  0712 

LD 

0E,BUFF42 

•  ■  • 

0236 

ED  BO 

LDIR 

IffllL  BUFFER  FULL. 

023A 

DD  21  0712 

LD 

IX,BUFF+2 

SET  INDEX  TO  START  OF  BUFFER 

023E 

11  028F 

LD 

DE,PR0HPT-2 

SET  UP  PRINT  'PROMPT' 

0241 

CD  0581 

CALL 

PRINT 

AND  PRINT  PROMPT  LINE. 

0244 

CD  0293 

CALL 

INPSTR 

60  en  A  CHAMCTER  STRING. 

0247 

CD  0M3 

CALL 

CRLF 

BMANCE  SCREB(  OUTPUT. 

024A 

DD  7E  00 

NORCHR;  LD 

A, (IX) 

LOAD  'A'  REG  WITH  CHAR. 

024D 

DD  23 

INC 

IX 

ADVANCE  BUFFER  PNTR  TO  NE)a  CHAR . 

fl24F 

FE  2F 

CNAF:  CP 

V 

DOES  A  'CimiND  STRING  FOLLOU  ? 

0251 

CA  0275 

JP 

2,SET9U 

YES,  SET  C01tm»  SWITCH. 

0254 

FD  CB  DO  56 

BIT 

2,(IY) 

IS  CtHIAND  SWITCH  SET  ? 

0258 

CA  026F 

JP 

Z.OATASG 

025B 

CD  029C 

CALL 

CHDSTR 

YES,  PROCESS  COrtlAND  STRING. 

025E 

FD  CB  00  4E 

EXIT:  BIT 

1,(IY) 

HAVE  WE  FINISHED  PROCESSING  THE  STRING. 

0262 

CA  024A 

JP 

2 .NORCHR 

NO.COniNUE  PROCESSING  CHAR'S  IN  STR. 

0265 

FD  CB  00  46 

BIT 

0,(IY) 

IS  IT  TINE  TO  DUIT?? 

0269 

C2  027D 

JP 

NZ.RTNCPN 

IF  YES,  CLB^R  SCREB(  AND  RETURN  TO  CP/M 

HAWD-SD  3.4  01-D*c-8C 


PABE  1 


.000- 


FF^ 

:F2D 


.zee 

ASEB 

ORB  200H 


MACHINE  LAN6UA6E 
Ct512  Wl^R 


Ki  /  c>  »o  A.  L_  *P^6  * 

S-re^  iV.rTo^u  CoAJ’rfi.cyk.  Be' 

/A/' 

rr  ^U\  i/Ay^X^OPy 


Tt-  BO 


BSB2  NO^nOB 
SUBROirriNES 


MHOHE  EQU 
MBELL  E8U 
MPRERR  EQU 


0FCS8H 

0FF3AH 

0FF2DH 


CLEARS  AND  HONES  SCREEN 
IDINBS  THE  BELL 

PRINTS  *ERR‘  ON  SCREEN  AND  DINBS  BELL 


CALLING  6502  S/R'S 


ADDRESSES  USED  PURPOSE 


2-80 

6502 

F045H 

645 

6502  A  REB  XTFR 

F(i46H 

«4e 

6502  X  REB  XTFR 

F047H 

♦47 

6502  Y  REB  XTFR 

F048H 

♦46 

6502  P  STATUS 

F049h 

♦49 

6502  STACK  PNTR 

F3DEH  <B<00H)  ADDR  OF  SOFT: 
CARD  IN  LO-Hl  ORDER  : 

F300H  ADDR  OF  6502  yR  TO  BE: 
CALLED  IN  LO-Hl  ORDER  : 

t 

SEE  SOFTCARD  MANUAL  P6  2-24: 


i  DEFINITICNS  FOLLOU 


'3DE 


04d 
047 
048 
049 


Z6CPU 

EQU 

0F3DEH 

; SOFTCARD  LOCATION  STORED  HERE 

A6VEC 

EOl 

0F3D0h 

;ADDR  OF  6502  ^R  STORED  HERE 

A6ACC 

EQU 

eF845H 

;6502  A  REB  STORE 

A6XREG 

EQU 

OF046H 

;65G2  X  REB  STORE 

A6YREB 

EQU 

0F047H 

;6502  Y  REB  STORE 

A6PREG 

EQU 

0F048K 

;65D2  P  REB  STORE 

A6SKPTR  EQU 

0F049H 

;6502  STACK  PKTR  STORE 

USEFUL  CP/M  SUBROUTINES 


005 

1 

CPWTRY  EQU 

5 

;CP/M  BfTRY  POINT 

01 

RCHAR  EQU 

1 

;READ  IN  ONE  CHARACTER 

002 

UCHAR  EQU 

2 

;URITE  OUT  WE  CHARACTER 

009 

PNTSTR  ECU 

9 

{PRINT  A  BUFFER  STRING 

APPENDIX  G 

Machine  Controller  Software 
(Assembly  code  for  Z-80) 


Logic. 


Logic  Controlled  AC  Power  Switch 


Theory  of  Operation: 

A  triac  is  a  back-to-back  diode  pair  which  is  gate  controlled.  A 
small  (  SOira)  gate  current  switches  the  diode  pair  into  conduction  and 
effectively  closes  the  “AC  power ^circuit.  The  circuit  remains  closed  so 
long  as  gate  current  is  supplied. 

If  gate  current  is  interrupted,  the  triac  output  circuit  will  be 
interrupted  (disconnected)  where  the  alternating  AC  voltage  passes  through 
its  next  2e’“o  crossing  voltage  -  because  the  diode  pair  will  go  into  their 
open/off  state. 

A  Moto’-ola  12  Amp/200  Volt  triac  {2N6342A)  used  as  the  switch  in  the 

' i c  v/c 

output  circuit  is  controlled  by  a  small  "optically  excited" 
Motorola  triac  (MOC  3010).  This  small  triac  supplies  the  gate  current  for 
the  power  line  triac.  The  MOC  3010  triac  is  switched  on  by  a  TTL  high 
logic  level  applied  to  an  74LS  240  inverting  buffer,  the  buffer  output  goes 
low,  causing  the  LED  in  the  MOC  3010  to  emit  light  which  switches  the 
triac,  internal  to  the  MOC  3010,  on.  This  in|fc  allows  gate  current  to  flow 
to  the  2N  6342A  power  triac  and  switch  it  on. 

A  low  TTL  level  to  the  74L^240  buffer  will  extinguish  all  gate 
currents  and  the  next  zero  crossing  of  the  AC  power  line  will  cause  both 
triacs  to  switch  to  their  off  states. 

The  RC  network  connected  between  the  two  triacs  is  for  compensation 
due  to  the  inductive  load  of  the  AC  motor  to  be  driven  by  the  triac  output. 

The  box  must  be  plugged  into  the  115  VAC  line  with  the  plug  provided. 
This  line  is  fused  with  a  10  Amp  fuse.  The  TTL  logic  signal  is  applied  to 
pin  2,  4,  o”  6  on  the  ribbon  connector  to  control  outlet  1,  2,  or  3.  Apply 
+5  VDC  to  pins  8,  9,  and  10  and  +5  VDC  return  (ground)  to  pins  1,  3,  5,  and 


APPENDIX  F 


Documentation  and  Schematics  for  Logic  Controlled  AC  Power  Switch 


mC(?0-8C  3.4  Ol-Otc-BO 


PABE  1-8 


1* 

t  THE  CHARACTER  IS  RniAO  IN  THE  'E'  REGISTER. 


•54; 

CO  06A2 

encY: 

CALL 

SAVREG 

:SAVE  PROCESSOR  REGS. 

054< 

FD  2A  0322 

LD 

IY,(CYnRL) 

;Sn  POINTER  TO  CY512  CttflROL  REG. 

054E 

2E  42 

LD 

L,42H 

;SET  HRL  REG  FOR  CY512  'OUTPUT'! 

054^ 

FD  75  00 

LD 

(IY),L 

• 

f  . . 

•541 

FD  CB  00  56 

B^ITl: 

BIT 

2,(IY) 

;CHECK  CY512  STATUS.. IS  IT  BUSY’ 

055; 

CA  054D 

JP 

2,a^ITl 

{YES,  WAIT 

•55< 

2E  43 

LD 

L,43H 

{READY,  HAKE  AN  I/O  REQUEST. 

055i 

FD  75  00 

LD 

<IY),L 

• 

055= 

FD  CE  00  56 

GUAIT2: 

BIT 

2, (IT) 

{IS  THE  C:Y5I2  DATA  READY’ 

055: 

C2  .'559 

JP 

N2,a^IT2 

{NO,, WAIT  'TIL  DATA  IS  READY. 

056.' 

FD  5E  04 

LD 

E,(IY+4; 

;YES, FETCH  CY512  OUTPUT  CHAfWCTER. 

osc: 

2E  40 

LD 

L,40H 

{CLEAR  THE  I/O  REQUEST,... 

05d5 

FD  75  00 

LO 

<IY),L 

{...AND  SET  UP  FOR  CY  INPUT. 

056= 

CD  06B9 

CALL 

RESTOR 

{RESTORE  ACTIVE  REGISTERS. 

056= 

C9 

RET 

{EXIT  THE  GO  CtWRACTER  S/R.. 

;i  RESn  THE  ACTIVE  CT512 

« 

»  THIS  ROUTINE  SETS  UP  THE  ACTIVE  CY5I2  FOR  PROPER  COMIMCATION. 


056.' 

CD  0^2 

?ESn;  CALL 

SAVREG 

{SAVE  PROCESSOR  REGISTERS. 

056= 

FD  2A  0322 

LD 

IY,(CYCTRL) 

• 

f 

or: 

3E  44 

LD 

A,44H 

{THE  ACTIVE  CY512... 

or: 

FD  77  00 

LD 

<IY),A 

{..IS  sn  TO  ASCII  MODE  AND. 

or: 

3E  40 

LD 

A,40H 

{..IS  TH0<  'RESET  ,  AND.. 

057r 

FD  77  00 

LD 

(IY),A 

{..THE  RESn  BIT  IS  aEARED. 

05'': 

CD  06B9 

CALL 

RESTOR 

{RETURN  AHIVE  REGISTERS. 

055; 

C9 

RO 

{EXIT  THE  'RESH'  S/R, 

HtiiiifiliiilfiiitlilfiMIffItlitlililiilttfifilliflllllllliiiffffll 

»  PRINT  MESW6E  SUBROUTINE 

*  PRINTS  MESSAGE  HHOSE  STARTING  ADDRESS  IS  IN  THE  'D£'  REGISTER 
i»  AND  PRINT  IWTIL  A  SYMBO.  IS  INTERCEPTED. 


055. 

CD  06A2 

'RINT:  CALL 

^REG 

{...»VE  REGISTERS. 

056^ 

OE  09 

LD 

C.WTSTR 

{^R  TO  PRINT  A  CHAWCTER  STRING. 

055: 

CD  0005 

CALL 

CPrtTTRY 

1 

055= 

CD  06B9 

CALL 

RESTOR 

{RESTORE  THE  REGISTERS, 

05£: 

C9 

RET 

• 

t 

»  'HdlE'  AND  CLEAR  DISPLAY  SCRE^ 


"v.  • 

mCRC'BC  3.4 
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8580 

CD  04A2 

> 

HOIE:  CALL 

SA^G 

SSAVE  AHIVE  REGS. 

0590 

n  FC58 

LD 

DE,AIHaiE 

:SET  UP  6502  VECTOR  LOCATlIh 

-* 

0593 

ED  53  F300 

LO 

(AfVEO.DE 

;T0  CLEAR  AND  HONE  SCREB4 

_( 

0597 

»  F3DE 

LD 

H,(2*CPU) 

;6n  260  SOFTCARO  STARTING  LOMTKh 

0S9A 

CO  OMl 

CALL 

StnCD 

;EXECUTE  THE  REQUEST 

0590 

CD  D6B9 

CALL 

RESTOR 

{RESTORE  THE  REGISTERS. 

OMO 

C9 

RET 

OSAl 

77 

1 

sonco:  LD 

(»&),A 

{ACTIVATE  SOFTCD  TO  DO  6502  S/R. 

0S^2 

C9 

1 

RT 

05A3 

11  0000 

CRlF:  LO 

DE.CR 

{SEND  A  CR/LF  TO  THE  SCREB^ 

• 

05A6 

CD  05BO 

CALL 

WICHF 

1 

i 

05A9 

11  OODA 

LO 

D£,LF 

f 

OMC 

CO  05BI 

CALL 

WICHK 

• 

1 

OSAF 

C9 

I 

RT 

05BC 

CO  04A2 

} 

UlCHR;  CALL 

SA.4IEG 

{SAVE  PROCESSOR  REGISTERS. 

4 

05B3 

OE  02 

LO 

c,w:har 

{THIS  ROUTINE  TYPES  THE  CHAR  ... 

0585 

CO  0005 

CALL 

CAtiTRf 

{..STORED  IN  THE  'DE'  REGISTER 

OSBc 

CO  06B9 

CALL 

RESTOR 

{RESTORE  THE  REGISTERS. 

05BE 

C9 

RT 

t 

f 

1 

} 

1 

;»THIS  SUBROinife  CIH3ERT5  THE  TWO  BYTE 
)«Nl«BER  IN  THE  K.  REGISTER  TO  A  FIVE 

iiOEClfV^.  DIGH 

STORED  IN  FIVE 

;«SEQUEf^lAL  REGISTERS. 

< 

1  BllWRT  TO  DEEIHAL  TO  ASCII  COWERT  ROUTINE. 

85BC 

CO  b6A2 

f 

BDCOfU;  CALL 

^EG 

{S1VE  PROCESSOR  REGISTERS 

05Bf 

FO  21  0696 

LD 

11 ,BDFL6 

{CLB^R  'CARRi'  , COINTER, 

05C3 

DO  21  0690 

LD 

I^ANSBUF+4 

{SET  UP  ANS  BUFFER  POINTER. 

4 

05C7 

FD  36  02  05 

LD 

<li^2),5 

{SET  CTR  FOR  FIVE  DECIfttL  DIGITS. 

05CB 

37 

BDLOOP:  SCF 

{CLEAR  'CARRY'  FLAG  AND... 

B5CC 

3F 

CCF 

• 

!•••• 

05C0 

FD  36  00  00 

LD 

(ll;,0 

{SKIP, COUNT, AND  DONE  FLAGS. 

0501 

01  1080 

LD 

B:,1080H 

{INITIALIZE  'BC  TO  GB^EWTE  OUOTI0TT. 

0504 

11  AOOO 

LD 

DE.OAOOOH 

{AND  LOAD  DE  WITH  THE  'NEW  MSE' 

( 

0507 

3E  00 

LD 

A.r 

• 

!••• 

0509 

EO  52 

60CONT;  SBC 

H.,DE 

{BEGIN  THE  DIVIDING  BY  1€U  BASE 

050B 

D2  05E3 

JP 

MC.BDNEXT 

{IF  (HD  POSITIVE,  COITINUE. 

05DE 

19 

ADO 

tt.DE 

{WON'T  60,  RESTORE  ORIGINAL  NINBER. 

050F 

FD  CB  00  D6 

SET 

2.(ir) 

{AND  SET  THE  'SKIP  ADO  QUOTIBTT'  FLAG. 

0SE3 

C6  3A 

BONEja:  SRL 

c 

{ROTATE  DE  'RIGHT'  (NE  BIT 

< 

05E5 

CB  18 

RR 

E 

{... 

05E7 

FD  CB  00  4E 

BIT 

1,(IY) 

{HAVE  WE  ROTATED  FIVE  TINES  YH’ 

05EB 

C2  0606 

JP 

k: ,bdlsb 

{YES,  WORK  IN  LSe  BYTE. 

( 

. . * 

mCRO-80  3.4  01-D*c-80 
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FD  ce  00  56 

BIT 

2,(1Y) 

;N0,  SO  IS  SKIP  flab  set? 

C2  05F6 

JP 

N2,BOAD^ 

;YES,  BYPASS  THE  MD  PARTIAL  PMOUH. 

eo 

ADD 

A,B 

|ND,,  ADD  A  BIT  TO  DUOTIBIT. 

ce  38 

BDADL*:  SRL 

B 

{SHIFT  BIT  COUNTER  AND  SEE  OF  nS  ZERO 

C2  0688 

JP 

N2,BDL1NK 

;N0,60  CIBIR  SKIP  FLAB  AND  C(KT  DIVIDE 

3F 

CCF 

jYES,  CLEAR  'CARRY', 

FD  C8  00  CE 

SO 

1,(1Y) 

;Sn  LSB  FLAB(FIVE  SHIRS)  AlC 

47 

LD 

B,A 

{SAVE  PARTIAL  DIVIDE  DUOTJBFT,.. 

3E  00 

LD 

A.O 

;..QU0TUH  AND  CLEAR  THE  'A  RE6. 

C3  0688 

JP 

BDLINK 

{AND  continue. 

FD  CB  00  56 

BDLSB:  BIT 

2,(IY) 

{CHECK  THE  SKIP  FLAG  ? 

C2  060E 

JP 

N2, BDINC 

{BYPASS  THE  ADD  IF  SR. 

81 

ADD 

A,C 

{NOPE..  ADD  A  BIT  TO  THE  DUCTIBFT. 

Ce  39 

BDINC:  SRL 

C 

{SHIR  BIT  RR  AND  TEST  FOR  13  SHIRS. 

C2  0688 

JP 

N2,BDLlNk 

{NOT  YR,  CLR  SKIP  FLB  AND  CtPT  DIV. 

3F 

CCF 

{CLR  WRRY  FLAB  AND  SWE  'OUCTLH'. 

•IF 

LD 

C,A 

1  •  ■  ■ 

7D 

LD 

A,L 

{CONVERT  THE  REIWINDER  TO  ASCII... 

C6  30 

ADD 

A,30H 

{...AND... 

DD  77  00 

LD 

(IX), A 

{STORE  REN(DEC  DIBIT)  IN  ANSBlFFER. 

DD  28 

DEC 

IX 

{MOVE  ANSBUF  POINTER  TO  NE^'  lDC. 

60 

LD 

N,B 

{HffJE  'WOTIENT'  TO  'HL'  FOR 

69 

LD 

L,C 

{FOR  NEXT  DIVIDE  ROIND. 

FD  35  02 

DEC 

<IY42) 

{DECRWENT  'FIVE  DIBIT'  RR'  AND 

CA  068F 

JP 

Z.BDFSET 

{PREPARE  TO  EXIT  IF  ZERO. 

FD  C6  00  46 

BDE)(n:  BIT 

0,(IY) 

{CHECK  THE  'EXIT  FLAB'.... 

CA  OSCE 

JP 

Z.BDLOOF 

{NOT  D1WE..BR  NEXT  DIGIT. 

CD  0633 

CALL 

PDIGTS 

{BO  PRINT  THE  COWERED  DIBITS. 

CD  0689 

CALL 

RESTDR 

{RESTORE  REGISTERS. 

C9 

RH 

{EXIT  . 

I 

i 


CD  06A2 

PDIGTS: 

CALL 

SAVREB 

SAVE  THE  'X'  REBIRER. 

DD  21  0699 

LD 

IX,  ANSBUF 

SR  IX  POINTER  TO  5  DIGIT  BifFER. 

FD  21  0687 

LD 

n.PDIGPG 

SR  UP  AND... 

3E  00 

LD 

A,0 

...CLEAR.. 

32  068? 

LD 

(PD1GFG),A 

..FLAG  BITS. 

3E  04 

LD 

A,4 

SR  UP  DIBIT  COUNTER. 

FE  00 

PDLOO^: 

CP 

0 

IS  CNTR  TO  RH  DIBIT  YR’ 

C2  0672 

JP 

NZ,PDELSE 

NO,  CIKTINUE. 

FD  CB  00  C6 

SR 

0,(IY) 

SR  FLAGS... 

FD  CB  00  CE 

SR 

1,<IY) 

t  •  • 

FD  CB  00  4E 

POCONT: 

BIT 

1,(IY) 

ARE  UE  RILL  RECEIVING  LEADING  ZEROS’ 

CA  0661 

JP 

2,  PDOUT 

NO,  CONTINUE. 

16  00 

LD 

0,0 

DD  SE  00 

LD 

E,<IX) 

LWD  DIGIT  INTO  OUTPUT  REBIRER. 

CD  DSBO 

CALL 

UlCHR 

AND  PRINT  IT  ! 

DD  23 

PDOUT: 

INC 

IX 

INCR01ENT  DIBIT  POINTER  ANI 

3D 

DEC 

A 

DECR01ENT  THE  DIBIT  COlHTER. 

FD  CB  00  46 

BIT 

0,<IY) 

ARE  UE  DONE  YR  ?? 

CA  0645 

JP 

Z.PDLOOP 

NO,  KEEP  AT  IT. 

CD  05A3 

CALL 

CRLF 

DONEiRTN  CURSOR  AND  EXIT.. 

CD  0689 

CALL 

REROR 

RERORE  THE  X  REBIRER 

C9 

RR 

PDEL5E;  CALL  SAMRE6 


CD  m2 


iMWE  THE  COUNT  AND 


NACRO*80  3.4 
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0^75 

DO  7E  OC 

LD 

A,<IX) 

:1S  THE  CHMAaER  A  '1'  ?? 

0678 

FE  30 

CP 

30H 

• 

1 

067A 

0^  0681 

JP 

Z.PDNEX 

;YES,  PREPARE  70  EXIT 

0670 

FO  C8  00  C£ 

sn 

1,(1Y) 

;N0  ,  sn  LB^ZERO  FLAG. 

0681 

CO  0689 

PONEX:  CALL 

RESTOR 

:RESTORE  REGISTERS 

0684 

C3  0652 

JP 

PDCONT 

:AND  CtNTlNUE  PROCESSING. 

0687 

00 

PD16F6: 

0 

I 

I 

) 


0686 

FO  CB  DC  9c 

BOLINK:  RES 

2,<1Y) 

;CLEAR  THE  'SKIP'  FLAB. 

068C 

C3  0509 

JP 

BDCQKT 

;60  CIKTINUE  THE  DIUIDE  PROCESS. 

068F 

FO  CE  00  U 

BDFSH: 

sn 

0,<1Y) 

;Sn  THE  EXIT  FLAG  (DWE.FIVFLG) . 

0693 

C3  0625 

JP 

BOEXIT 

: . ANO  60  EXIT. 

0696 

00 

BDFlG; 

0 

;FLAG  REGISTER. 

0697 

00 

0 

• 

1 

0698 

00 

BOCNT: 

0 

;DIGIT  COLNTER. 

0699 

00 

ANSBUF : 

0 

;THIS  IS  THE  FIUE  DIGIT  ANSWER  BUFFER 

069A 

00 

0 

0698 

00 

0 

1  *  *  * 

069C 

00 

0 

0690 

00 

0 

!• 

;♦  USER  STACK  AND  MWE  PROCEEDURE 


069E 

17 

U5RSTK: 

17H 

;sn  THE  USER  STACK  BELOU  PROGRAN 

•69F 

OF 

OFH 

• 

1 

06AO 

00 

SYSSTK: 

0 

{SAVE  SYSTEM  STACK  POINTER. 

06A1 

oo 

« 

0 

• 

1 

1 

}#  SAVE  PROCESSOR  REGISTERS 

06A2 

ED  73  06A: 

WRE6:  LD 

(SYSSTK), SP 

;»VE  THE  SYSTEM  STACK  POINTER. 

06A6 

ED  7B  06’i 

LD 

SP,<USRSTK) 

{LOAD  USER  STACK  POINTER. 

OMA 

F5 

PUSH 

AF 

{SAVE  AHIVE  REGISTERS... 

06AE 

E5 

PUSH 

HL 

• 

OMC 

DD  E5 

PUSH 

IX 

*  #  •  # 

06AE 

FD  E5 

PUSH 

lY 

• 

■  •ft 

0680 

ED  73  06’E 

LD 

<USRSTK),SP 

{SAVE  USRSTK  POINTER. 

0664 

ED  78  06A; 

LD 

SP, (SYSSTK) 

{RESTORE  SYST01  STACK  POINTER. 

0668 

C9 

Rn 

{..EXIT 

»  RESTORE  PROCESSOR  RE6ISTERS 


06B9 

ED  73  0^: 

RESTOR;  LD 

(SYSSTK) ,SP 

{SAME  SYSTB1  STACK  PNTR. 

06BD 

ED  78  069E 

LD 

SP, (USRSTK) 

{LOAD  USER  STACK  POINTER. 

06C1 

FD  El 

POP 

lY 

{RESTORE  THE  AniVE  REGISTERS 

06C3 

DD  El 

POP 

IX 

1  *  *  * 

06C5 

El 

POP 

KL 

1  •  •  • 

•  t  • 
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6  FI 

7  ED  73  069E 

8  ED  78  06AO 
F  C9 


OD  00  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 
OD  OD  OD  OD 

2A  ^  2A  2A 
2A  2A  2A  2A 
2A  ^  2A  2A 
2A  ^  2A  2A 
2A  2A  2A  2A 
2A  2A  2A  2A 
2A  2A  2A 
2A  2A  20  2A 
2A  2^  20  ^ 
20  20  20  OD 
OO 

20  20  20  20 
20  20  20  20 
20  43  59  35 
31  32  20  43 
4F  4E  54  52 
4F  40  20  50 

52  4F  47  52 
41  4D  20  20 
20  20  20  20 
20  20  2(^  OD 
OO 

20  20  49  4E 
20  %  38  30 
20  41  53  53 
45  4D  42  40 
59  20  43  4F 
44  45  20  42 
59  20  4D  2E 
20  ^  2E  20 

53  4D  41  52 

54  20  20  OD 


CRR7N:  DB 


OF 

(USRSTK),SP 

SP,<SYSSTK) 

RO 


iMOt  USER  STOCK  POIKTER. 
RESTORE  SYSrm  STOCK  POINTER. 
;,.OND  EXIT 


;sn  UP  STRING  BUFFER  SPACE, 
13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13 


D8  13,13,13.13,13,13,13,13,13,13,13,13,13,13,13,13 


DB  13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13 


DB  13,13,13,13,13,13,13,13,13,13,13,13,13,13,13,13 


BUFF:  DS  44  ;L0COT10N  BUFFO  CONTAINS  STR  LBTGTH 

HEADER:  DB  •###♦«§«»»§«««»*««»*#§♦«#««*««»#•  ,13,10 


DB  •*  am  CtKTRDi  PROBIMM  »’,13,10 


DB  'I  IN  Z80  ASS0e.T  CODE  BY  M.  J.  SrWRT  l•,13,10 


PAGE  S 


mcto-8c 


3.4 


0H>fc-8C 


ftacros: 


S)«bo)s: 


MACC 

F045 

MBELL 

FF^ 

AOHOIE 

FC58 

aipreg 

F04e 

mpref 

FF2D 

<»SKPT 

F049 

AOVEC 

F3D0 

AOXREG 

F046 

-< 

cr> 

F047 

ABOARD 

028F 

ACYtWI 

0290 

ANSBUF 

0699 

m^ 

m 

m 

m 

m 

m 

Biff 

05BC 

060E 

BOLINK 

0468 

BDLOOP 

05ce 

BDLSE 

0606 

BONEXT 

OSES 

BKGND 

020C 

BOARO 

0280 

BUFF 

0710 

CDBOUO 

02F6 

CDCHBD 

02CB 

CDCYUO 

02EA 

CODIT 

02CA 

COFSET 

02C6 

COGOOD 

02AC 

CDLSTl 

0330 

COLST2 

0333 

CDNSG 

0204 

CWFt 

0324 

Ct«^R 

024F 

CHR.ST 

0388 

01DLST 

032A 

CMDSTR 

029C 

CPmTR 

0005 

CR 

0000 

CRLF 

0^3 

06DO 

CYHRL 

0322 

CYNi^ 

0288 

CYUPDT 

0306 

MTASG 

024F 

DTAEXT 

036C 

DTAFR 

0335 

DTVFY 

037A 

EXIT 

025E 

FACTOR 

049C 

FLGREE 

027C 

GHCY 

0541 

GfTSTR 

OOOA 

GUAITl 

0540 

GUAIT2 

0559 

HEADER 

0750 

HONE 

058D 

INPSTR 

0293 

IMJA.C 

0360 

LF 

OODA 

LOOP 

022A 

NORCHR 

024A 

NUMBER 

0496 

M7L0NG 

0380 

PDcan 

0652 

POELSE 

0672 

P016C& 

0687 

POIGTS 

0633 

POlOOP 

0645 

POND 

066! 

PDOoT 

0661 

PEOUAL 

0505 

PNTSTR 

0009 

PRINT 

0581 

PRdir 

0291 

»iTE 

0498 

RCNAR 

000: 

RESn 

0560 

RE  ST  OR 

068^ 

RESTRT 

021C 

RTNOPN 

0270 

^REG 

06A2 

SCHOS* 

0531 

SCUAIT 

0520 

SBtD 

035E 

SENOCt 

0519 

sna. 

0275 

SLOPE 

049A 

SLOT 

0007 

sonco 

05A1 

SfiUlT 

0384 

STAT 

EOFO 

STATUS 

0490 

SYSSTK 

06AC 

TOPJN 

F022 

USRSTK 

069E 

VCOIWT 

0497 

VECIUI 

04F2 

VECU 

0460 

UECUN 

04E7 

VEOSCT 

0449 

VEDSPY 

0402 

VED.IT 

0456 

VEFACT 

04C5 

VEFlST 

0408 

VEFS 

0466 

VEH.r 

04CF 

VELOOP 

0307 

VBtilG 

04M 

VEOTPT 

046C 

VERtTE 

0480 

VERIFY 

03C3 

VESi-OP 

0464 

VFETCh 

047A 

VFlOO*' 

046^ 

ULDCHP 

0353 

VOLOOP 

046E 

VTHREE 

04^6 

vrw: 

04A2 

VZERO 

049E 

UICNR 

0580 

UCHAR 

0002 

Z«CP. 

F30E 

No  Fatal  (rror(s) 
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APPENDIX  H 


Machine  Language  Interface  and  Communication  Program 


SOFTWARE: 


MACHINE  LANGUAGE  INTERFACE  AND  COMMUNICATION  PROGRAMS: 

Following  are  assembler  listings  for  two  machine  language 
programs  which  must  be  loaded  to  interface  the  APPLE  computer  to 
the  "Blue  Box"  and  to  the  serial  RS232  card  which  allows 
communication  with  other  computers.  They  are  as  follows: 

CYDRIVER.HEX  -  The  8080  machine  language  program  which  allows 
Microsoft  Basic  to  ’talk’  with  the  "Blue  Box" 

COMM.HEX  -  The  8080  machine  language  program  which  allows 
Microsoft  Basic  to  ’talk’  with  other  computers 
and  pcriferals  through  the  RS232  interface  card. 


• :  ;» 

!♦  CYDRIVER  RY  JUSIN  D .  REDD  -DYU  CAM  LAB- 

f*  0CT0BERfl983 

;»  (ORIGINAL  6502  VERSION  BY  BRANDT  C.  REDD) 

it  j  ♦ 

i*  THIS  PROGRAM  TAKES  A  STRING  FROM  MBASIC  THROUGH  THE  'USR'  FUNCTI 
lo:  ;«  AND  SENDS  IT  TO  THE  CY-512  6-AXIS  STEPPER  MOTOR  CONTROLER. 

1 . :  it 

i::  if  COMMUNICATION  IS  THROUGH  AN  'APPLE  EXPANDER'  PARALLEL  COMMUNICA" 

17:  i*  CARD  MANUFACTURED  BY  ROBOTIC  SYNERGY.  INC.  THIS  PROGRAM  ASSUME!- 

1-:  if  THAT  THE  CARD  IS  PLACED  IN  SLOT  7.  BUT  MAY  BE  EASILY  MODIFIED. 

1  _ :  if 

l:-.  it  TO  MODIFY  FOR  OTHER  THAN  SLOT  7.  CHANGE  LINES  30  AND  31  AS  FOLLC 

1  :  if  3o:  stbase:  equ  oeoxo  (where  x=  slot*  +  8) 

I;-.  if  31 :  DTBASE:  EOU  OEOXf  (where  x=  slot*  +  8) 

1  - :  if 

if  THE  DEF  USRX  STATEMENT  MUST  BE  USED  FROM  MBASIC  TO  ENTER  THIS 

2  if  PROGRAM  AT  THE  PROPER  POINT  FOR  THE  DESIRED  AXIS 

; - ;  if 

i  f  f  f  f  f  ff  ff  ff  f  f  ff  f  f  fffffff  f  f  f  f  ff  f  f  f  f  f  f  f  ff  f  f  f  f  *ffff  f  ff  f  ff  f  f  »f  ff 

:  i 

0400  ORG  OCAOOH  iSTART  ASSEMBLY  AT  LOCATION  C400H 


n  o  . 

3  ■ : 

3'.:  C400 

3::  C402 

C404 
C405 
22'.  C407 

3:1  EOFO 
3’;  E0f4 


iffftirtffffffffffftffftfffffftff 

if  SET-UP 

ittttttttttttttttttttttttttttttt 

i 

string;  ds  2 

DESC:  DS  2 

length:  ds  1 

stat:  DS  2 

data:  ds  2 

stbase:  equ  OEOFOH  if*  change  if  slot  <>  7  ff 

DTBASE:  equ  0E0F4H  iff  CHANGE  IF  SLOT  <>  7  ff 

i 

if  f*t*»*»»*»f*ff**»»ff*»f*f  *»*»■» 

if  ENTRY  POINTS 


4 


ifffff fffffff fffffffffffffffftff 


4 


A~: 

C4  0'9 

CD5704 

CYi : 

CALL 

INIT 

ilNITIALIZE 

C40C 

0600 

MVI 

B.OOH 

iOFFSET  STAT  REG  VALUE 

FOR 

CY*1 

C4-E 

OEOO 

MVI 

C.OOH 

iOFFSET  DATA  REG  VALUE 

FOR 

CY*1 

4  : 

C4:0 

0D7404 

CALL 

SETUP 

iCALL  SUB  TO  SETUP  STAT 

AN! 

DATA 

il  " 

0413 

C387C4 

JMP 

MAIN 

iJUMP  TO  MAIN  PROGRAM 

4- 

0416 

0D57C4 

CY2; 

CALL 

INIT 

ilNITIALIZE 

4- 

C419 

0601 

MVI 

B.OlH 

iOFFSET  STAT  REG  VALUE 

FOR 

CY*2 

c 

04  IB 

OEO’l 

MO  I 

C.OIH 

iOFFSET  DATA  REG  VALUE 

FOR 

CY*2 

c 

04  ID 

CD7404 

CALL 

SETUP- 

iSUB  TO  SET  UP  STAT  1  DATA 

ADDRESSES 

C  ' 

0400 

03S7C4 

JMP 

MAIN 

iJUMP  TO  MAIN  PROGRAM 

5  : 

0433 

CD5704 

CY3: 

CALL 

INIT 

ilNITIALIZE 

c  < 

0436 

06  0  2 

MUI 

Br02H 

iOFFSET  STAT  REG  VALUE 

FOR 

CY*3 

C438 

0E02 

MM  I 

C.02H 

iOFFSET  DATA  REG  VALUE 

FOR 

CY*3 

043A 

0D74C4 

CALL 

SETUP- 

iSET  UP  STAT  t  DATA  REG 

ADDRESSES 

r  - 

C42D 

033704 

JMP 

MAIN 

iJUMP  TO  MAIN  PROGRAM 

!  r 

0430 

0D5‘’04 

CY4; 

CALL 

INIT 

ilNITIALIZE 

I  • 

0433 

0606 

MM  I 

P.OPH 

iOFFSET  STAT  REG  VALUE 

FOR 

CY*4 

- 

0  435 

OE08 

MM  I 

Cf08H 

iOFFSET  DATA  REG  VALUE 

FOR 

CY*4 

10  REM  ***tt*ttt*tttt**t**tt*t*tt*t**tttttttttt 

20  REM  It 

30  REM  *  LOADASM.BAS 

40  REM  *  BY 

50  REM  *  JUSTIN  D.  REDD  -  BYU  CAM  LAB  - 

60  REM  *  OCTOBER,  19B3 

70  REM  *  THIS  PROGRAM  CHECKS  TO  SEE  IF  COMM. HEX 
BO  REM  *  AND  CYDRIVER.HEX  HAVE  BEEN  LOADED  INTO 
90  REM  t  MEMORY.  IF  THEY  HAVE  NOT  THEN  THE  PROGRAM 
lOO  REM*  CHAINS  TO  THE  ’BLOAD’  PROGRAM  AND  LOADS 
110  REM*  THEM  INTO  MEMORY. 

120  REM* 

130  REM*  THE  LOCATIONS  C4F1H  -  C4F7H  ARE  USED  TO 
140  REM*  INDICATE  PROGRAM  LOADING  STATUS.  LOCATIONS 
150  REM*  C4F1  -  C4F5H  WILL  CONTAIN  THE  ASCII  CODES 
160  REM*  FDR  "VALID"  IF  DATA  IS  VALID  AND  LOCATIONS 
170  REM*  C4F6H  &  C4F7H  WILL  CONTAIN  ASCII  "O",  OR  "1". 

IBO  REM*  O  =  PROGRAM  NOT  LOADED  1  =  PROGRAM  LOADED 
190  REM*  C4F6H  CORRESPONDS  TO  CYDRIVER.HEX 
195  REM*  C4F7H  CORRESPONDS  TO  COMM. HEX 
200  REM* 

210  REM* ««**«** **«**««**«**»*«* *»*«««»**«******* 

220  REM 

230  COMMON  CALLER*, CLINE 
240  COMMON  PRGMt, SLINE, HFILEt 
250  REM 

260  REM  ttttttttttttttttttttttttt 

270  REM  *  CHECK  STATUS 

280  REM  tttttttttttttnttttttttttt 

290  REM 

300  PRINT: INVERSE: PRINT  "CHECKING  FOR  CYDRIVER.HEX  AND  COMM. HEX NORMAL: PRINT 
310  MESS*="" 

320  FOR  CHAR  =  O  TO  6 

330  LOCATION  =  ScHC4Fl  +  CHAR 

340  CHARt=CHR* (PEEK (LOCATION) ) 

350  MESS*=MESS»  +  CHAR*: CHAR*="" 

360  NEXT  CHAR 

370  IF  LEFT* (MESS*, 5)  <  >  "VALID"  THEN  GOTO  440 
380  X*=RIGHT*(MEBB*,2) 

390  IF  X*="10"  THEN  GOTO  640 
400  IF  X*="01"  THEN  GOTO  550 
410  IF  X*="ll"  THEN  GOTO  730 
420  GOTO  440 
430  REM 

440  REM  t************************ 

450  REM  *  LOAD  BOTH  PROGRAMS 

460  REM  ttttttttttttttttttttttttt 

470  REM 

480  PRINT: INVERSE: PRINT  "LOADING  CYDRIVER.HEX  AT  C400H" ;; NORMAL; PRINT 
490  PRGM*="B:LOADASM. BAS" ;SLINE=510;HFILE*="B: CYDRIVER.HEX" 

500  CHAIN  "B: BLOAD. BAS", , ALL 

510  PRINT: INVERSE: PRINT  "LOADING  COMM. HEX  AT  C500H" ;; NORMAL: PR INT 
520  SLINE  =  530:HFILE*="B;C0MM.HEX”:CHA1N  "B; BLOAD. BAS" ,, ALL 
530  GOTO  730 
540  REM 

550  REM  **»*********»****»**»»*** 


540  REM  **ttt**tt*t*t*tt*t*tttt**** 

550  REM  t  DO  AS  COMMANDED 

560  REM  tttt*ttt**t*t****ttttt*t*t*t 

570  REM 

574  MENU*'“MENU" 


580 

IF 

CHOICE* 

= 

II  ^  II 

THEN 

CHAIN 

"INTERP.BAS" 

590 

IF 

CHOICE* 

H  2  ** 

THEN 

CHAIN 

“CYEXEC-BAS" 

600 

IF 

CHOICE* 

= 

••3'‘ 

THEN 

CHAIN 

"LZERO.BAS",  , 

ALL 

610 

IF 

CHOICE* 

= 

^  II 

THEN 

CHAIN 

"MZERO.BAS” 

615 

IF 

CHOICE* 

= 

"5" 

THEN 

CHAIN 

"LINEXEC.BAS** 

,,ALL 

620 

IF 

CHOICE* 

= 

"6" 

THEN 

HOME: END 

10  REM  *tttt*t*ttt**t**t**ttt**ttt**t*ttt*tttt*ttt*t*t*tt 

20  REM  * 

30  REM  *  MENU. BAS  BY  JUSTIN  D.  REDD  -  BYU  CAM  LAB  - 

40  REM  *  DECEMBER,  1983 

50  REM  t 

60  REM  *  THIS  PROGRAM  PROVIDES  A  SELF  EXPLAINATORY  MENU 
70  REM  t  THAT  CHAINS  TO  OTHER  PROGRAMS  TO  CREATE  AND 
80  REM  t  EXECUTE  COMMAND  FILES  FOR  THE  MINI  LATHE  AND 
90  REM  t  MINI  MILL. 

100  REM* 

110  REM* t*********************************** *»«»»«« *»««*« 

120  REM 

130  REM  ttttttttttttttttttttittttttttttttt 

140  REM  *  CHECK  FDR  CYDRIVER.HEX  IN  MEMORY 

150  REM  t********************************* 

160  REM 

170  PRINT: INVERSE: PRINT  "CHECKING  FOR  CYDRIVER. HEX NORMAL: PRINT 
180  MESS*="" 

190  FOR  CHAR  =  O  TO  6 

200  LOCATION  =  8<HC4F1  +  CHAR 

2 1 O  CHAR*=CHR* ( PEEK ( LOCAT ION)) 

220  MESS*=MESS*  +  CHAR*:CHAR*=  "" 

230  NEXT  CHAR 

240  IF  LEFT* (MESS*, 5)  <>  "VALID"  THEN  GOTO  270 
250  X*=MID*(MESS*,6, 1) 

260  IF  X*="l"  THEN  GOTO  320 

270  PRINT: INVERSE: PRINT  "LOADING  CYDRIVER.HEX  AT  C400H" NORMAL: PRINT 
280  PRGM*="MENU. BAS" : SLINE=320: HFILE*=“CYDRI VER. HEX" 

290  CALLER*="XXXX";CLINE=999 
310  CHAIN  "BLOAD.BAS", 10,ALL 
315  CLEAR,  8<HC400 
320  DEF  USR1=&HC409:CY1=8<HC409 
330  DFF  USR2=&HC416:CY2=&HC41v‘b 
340  DEF  USR3=S(HC423:CY3=5<HC423 
350  REM 

360  REM  ttttttttttttttttttttttttttttt 

370  REM  «  PRINT  MENU 

380  REM  «*««****«*«*******«*»****»»*» 

390  REM 

400  HOME; PR I NT  "  MINI -MACHINE  PROGRAMMING  MENU": PRINT 

410  PRINT"  -  BYU  CAM  LAB  -":PRINT 

430  PRINT: PRINT; PRINT  "1)  TRANSLATE  AN  RS274  TEXT  FILE" 

440  PRINT;PRINT"2)  EXECUTE  A  TRANSLATED  FILE" 

450  PRINT; PR INT"3)  ZERO  LATHE" 

460  PRINT: PRINT"4)  ZERO  MILL" 

465  PRINT: PRINT  "5)  LINE  BY  LINE  MANUAL  EXECUTER" 

470  PRINT: PRINT"6)  QUIT" 

480  PRINT;PRINT;PRINT  "  SELECT  ONE  ==> 

490  CHDICE*=INKEY*  ;  IF  LEN (CHOICE*)  =  O  THEN  GOTO  490 
500  VVP=VPOS (X) : PRINT  CHOICE* 

510  IF  ASC(CH0ICE*)<49  OR  ASC (CHOICE*) >54  THEN  PRINT  CHR* (7) : INVERSE: PRINT  "CHDO 
SE  1,2, 3, 4, 5,  OR  6  ONLY" ;: NORMAL; VTAB  (VVP);HTAB  (21 
)  ;  GOTO  490 
520  PR I NT; PR I NT" 

530  REM 
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2)  INTERPRETING  THE  COMflftND  FILE 

To  interpret  and  run  the  command  -file  written  with  ED. CON 
programs  written  in  NBASIC  are  used-  NBASIC  must  be  loaded  into 
memory  -from  the  CP/M  operating  system.  To  load  NBASIC  type 
'  MBAS  I C  /M :  5tHC400  ’  . 

Once  NBASIC  is  loaded  into  memory  all  other  necessary  programs 
can  be  run  from  the  master  program  called  'MENU. BAS’.  To  run  this 
program  from  NBASIC  type  ’RUN  "MENU’'’. 

To  interpret  a  file  select  option  ’1’  from  the  menu  and  follow 
the  instructions. 

3)  EXECUTING  THE  PROGRAM 

To  execute  the  interpreted  program  select  ’2’  on  the  menu  and 
follow  the  instructions.  Remember  to  turn  on  the  ’blue  box’  first. 
Moving  the  axis’  to  their  zero  positions  is  accomplished  by  selecting 
the  appropriate  option  from  the  menu.  To  return  to  the  CP/M  system 
from  NBASIC  type  ’SYSTEM’. 


(3) 


displaying  a  header  and  a  prompt  for  motor  ’A’  which  indicates  the 
motor  labeled  #1  on  the  blue  bo:<.  All  commands  entered  will  be  sent 
to  motor  #1  when  <return>  is  pushed.  (A  list  of  the  commands  that  are 
recognized  by  the  blue  box  appears  in  the  CY512  documentation  booklet.) 
Multiple  commands  may  be  entered  on  one  line  by  separating  each 
command  with  a  comma.  The  following  is  an  example  of  a  command  line 
that  sets  the  rate,  slope,  factor,  number  of  steps,  direction,  and 
finally  tells  the  motor  to  *B0’: 

A'R  250,5  1,F  1,N  1000,+,B 

To  address  a  different  motor  type  a  slash  (/)  followed  by  the  motor 
symbol.  (Motor  symbols  are  as  follows:  ’A’=l,  ’B’=2,  ’C’=3,  ’2A’=4, 

’2B’=5,  and  ’2C’=6)  To  exit  the  program  type 

B.  PROGRAM  CONTROL 

Programming  a  sequence  of  moves  into  the  mi ni — machi nes  involes 
three  steps.  These  include  creating  a  text  file  containing  the  mini~ 
machine  instructions  using  the  CP/M  system  editor  (ED. COM), 
interpreting  the  text  file  to  ’blue  box’  compatible  commands  using 
the  MBASIC  INTERP.BAS  program,  and  running  the  program  using  the 
MBASIC  CYEXEC.BAS  program- 

1)  CREATING  THE  N/C  MACHINE  CODE  FILE 
NOTE:  Some  knowlege  of  the  CP/M  system  editor  ED. COM  is  necessary 
to  use  the  mini— machines  under  program  control.  The  use 
of  ED.COM  is  detailed  in  the  Microsoft  Softcard  Manual,  Vol  1. 
The  first  step  in  programming  the  mi  ni —machi  nes  is  to  ■enters^'/S 
the  program  as  a  text  file  on  the  disk.  The  file  may  have  any  name, 
but  it  should  have  the  extention  .RSC.  Command  lines  consist  of 
the  line  number,  X,Y,  and  Z  distances,  and  the  Feedrate.  All  command 
lines  must  end  with  a  dollar  sign  (♦> .  After  the  dollar  sign  any 
comments  may  be  inserted.  The  file  must  end  with  a  line  containing 
a  single  dollar  sign  and  nothing  else.  Details  of  each  of  the 
parameters  of  the  command  line  are  listed  below: 

LINE  #  —  must  contain  ’N’  followed  by  3  digits.  (Ex.  N005) 

X  -  contains  an  ’X’  followed  by  distance  in  inches  (Ex.  X-10. 125) 

Y  —  contains  a  ’Y’  followed  by  Y— distance  in  inches  (Ex.  Y+2.35) 

Z  —  contains  a  ’Z’  followed  by  Z— distance  in  inches  (Ex.  Z— 1.00) 

F  —  contains  a  ’F’  followed  by  feedrate  in  in. /min.  (Ex.  F55.25) 

Spacing  between  parameters  is  not  critical  and  can  be  used  to  make 
the  program  listing  more  readable.  Each  parameter  does  have  a  maximum 
number  of  digits  a  list  of  which  follows: 


N;-; ; 

X  -  3  digits  must  be  included 

in  the  line 

number 

parameter 

Xx; 

of  2  digits 

to 

left 

and  3 

to 

right 

of 

decimal 

Yx; 

.XXX  —  same  as 

above 

Zx> 

.XXX  —  same  as 

above 

Fx: 

X . X  X  —  max i mum 

of  3  digits 

to 

left 

and  2 

to 

right 

of 

decimal 

Following  is  an  example  of  a  sample  program: 


NO  01 

X  1 . 00 

YO.OO 

ZO.OO 

FlOO 

* 

X 

POS.  1  IN.  AT 

100 

IN/MIN 

N002 

XO.  00 

Y5 

ZO.OO 

F50.5 

« 

Y 

POS.  5  IN.  AT 

50.  S 

IN/M  IN 

N003 

XO.  00 

YO.OO 

Z12. 125 

F4 

$ 

Z 

POS.  12. 125  INCHES 

N004 

X-1 . 00 

Y-5 

Z-12. 125 

FlOO 

% 

BACK  TO  START 

(2) 


3)  THE  LIMIT  SWITCHES; 

The  limit  switches  are  connected  to  the  row  o-f  white  sockets 
labeled  ’switches’  on  the  motor  control  box.  A  -four  conductor 
cable  connects  box  with  the  actual  switches.  Each  o-f  the  white 
switch  sockets  should  have  pins  4  and  6  wired  together.  The  limit 
switch  corresponding  a  given  axis  should  be  wired  to  pin  2  o-f  the 
white  socket.  Pin  4  of  the  white  socket  is  a  -*-5  Volt  output  and  is 
wired  to  the  common  terminal  on  all  the  limit  switches.  Following 
is  a  listing  of  cable  wire  colors  with  their  corresponding  axis’  and 
socket  pins: 

Cable  Wire  Color 
Red 
Green 
Whi  te 
B1  ack 

C.  THE  STEPPER  MOTORS; 

The  stepper  motors  connect  to  the  stepper  motor  controller  box 
with  cables  and  plugs/sockets.  See  part  B.2  above  wiring  details. 

I I .  SOFTWARE 

A  number  of  programs  have  been  written  for  mini-machine  and 
stepper  motor  control.  A  list  of  these  programs  and  some  useful 
utility  programs  needed  follows: 


Common 


2,  Socket  1 
2,  Socket  2 
2,  Socket  3 
4,  Any  Socket 


lini-Machine  Fin  # 

1 


Proaram  Name 
ED.CDM 
SMARTCY.COM 
MBASIC.COM 
PIP.COM 
MENU. BAS 
LOADASM. BAS 
BLOAD. BAS 
INTERP.BAS 
CVEXEC.BAS 
MZERO. BAS 
LZERO.BAS 
CYDRIVER. HEX 
COMM. HEX 


Purpose 

CP/M  Utility  to  create  text  files(see  Softcard  VI) 
Manual  stepper  motor  control  program  by  M.  Smart 
Microsoft  Basic 

CP/M  file  transfer  utility(see  Softcard  Manual  VI) 
Master  menu  for  use  with  machine  control  programs 
Loads  in  necessary  assembly  language  subroutines 
Loads  machine  langruage  from  .HEX  files 
Interprets  NC  coded  text  files  to  run  mi ni -machi nes 
Executes  interpreted  machine  control  files 
Zero’s  all  axis’  on  the  mini-mill 
Zero’s  all  axis’  on  the  mini-lathe 


Machine  language  routine  to  communicate  with  ’blue  box 
Machine  language  routine  to  use  serial  comm,  card 


III.  RUNNING  THE  MACHINES; 


There  are  two  ways  of  running  the  mini -machines.  Manual  control 
refers  to  giving  commands  directly  to  the  stepper  motors  one  at  a 
time.  Program  control  refers  to  executing  stepper  motors  commands 
directly  from  program  control. 


A.  MANUAL  CONTROL: 

To  manually  control  the  individual  motors,  get  into  the  CP/M 
system  environment  (by  booting  up  from  disk  or  by  typing  ’SYSTEM’ 
from  MBASIC)  and  type  ’SMARTCY’.  The  computer  will  respond  by 


MINI-LAB  LATHE  MILL  OPERATING  INSTRUCTIONS 


I .  SET-UP 


The  mini  machine  control  system  consists  of  three  systems  or 
stages  that  must  all  be  connected  together  properly  for  operation  of 
the  mini -machines  from  the  APPLE  computer.  These  are  the  APPLE 
computer  itself,  the  stepper  motor  control  box  or  'blue  box’,  and  the 
stepper  motors. 


A.  THE  APPLE  COMPUTER: 

The  APPLE  computer  must  include  some  periferals  Mhich  plug  into 
the  slots  at  the  rear  of  the  computer.  In  some  cases  slot  placement 


is  critical.  Following  is  a  list 
the'/  should  be  plugged  into: 

SLOT 

SLOT 

SLOT 

SLOT 

SLOT 

SLOT 

SLOT 

SLOT 


of  periferal  cards  and  the  slots 

O  —  Language  RAM  Card 

1  -  Printer  (if  used) 

2  -  Serial  RS232  Card  (if  used) 

3  - 

4  —  Floppy  Disk  Drives  (w/  CORVUS) 

5  —  Z-80  Microsoft  Softcard 

6  -  CORVUS  or  Floppy  Disk  Drives 

7  —  ’Blue  Box’  Apple  Bus  Expander 


Care  should  be  taken  to  install  the  cards  properly  into  their  correct 
places. 


B.  THE  SIX  AXIS  STEPPER  MOTOR  CONTROL  BOX 

The  stepper  motor  control  box  or  ’blue  box’  as  it  is  commonly 
called  has  three  important  connection  areas.  These  are  the  parallel 
port  that  goes  to  the  APPLE,  the  motor  connection  sockets,  and  the 
limit  switch  connection  sockets. 


1)  PARALLEL  COMPUTER  INTERFACE; 

The  parallel  port  on  the  ’blue  box’  is  located  at  the  bottom 
center  position.  This  must  be  connected  with  a  ribbon  cable  to  the 
apple  bus  expander  card  which  should  be  located  in  ^ot  7  of  the 
APPLE. 


2)  THE  STEPPER  MOTORS; 

The  six  stepper  motor  connection  sockets  are  located  on  the 
bottom  row  of  the  ’blue  box’  and  numbered  1—6  starting  on  the 
right  hand  side.  These  must  be  connected  to  the  stepper  motors 
themselves  with  six  conductor  cables.  The  standard  color  coding  of 
the  cables  and  the  motor  wires,  along  with  their  corresponding  pins 
in  the  plugs  and  sockets  connecting  them  follows: 


Socket  pin  # 

Cable  Wire  Color 

Motor  Wire  Color 

Function 

1 

Red 

Red 

Motor  Phase  #1 

2 

B1  ack 

Black 

R-Ser i es 

3 

Orange 

Red/Whi te 

Motor  Phase  #2 

4 

Blue 

Green /Wh i te 

Motor  Phase  #4 

5 

Green 

Green 

Motor  Phase  #3 

6 

Whi  te 

White 

R-Series 
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121 

55:^5 

FEFF 

EF'I 

OFFH 

»SEE  IF  IT'S  OVERFLOUING 

1  ••  n 

C577 

CA7Dr5 

JZ 

RDONE 

fIF  SO.  GOTO  RDONE 

123 

CS^A 

'■25PC5 

JF 

VIAIT2 

SLOOP  BACK  FOR  NEXT  CHAR 

12^ 

C5~D 

21A0E0 

RHONE:  LXI 

HfSTAT 

SLOAD  HL  WITH  STAT  ADDRESS 

125 

C580 

3655 

HOI 

H.055H 

SCLEAR  RS-232  CTS  LINE  (DISABLE  RELIEVE 

12e 

2582 

05 

DOR 

B 

SDECREHENT  CHAR.  CNTR  TO  TRUE  VALUE 

127 

C583 

78 

HOO 

AfB 

SPUT  STRING  LENGTH  IN  A 

128 

C584 

2A0025 

LHLD 

PESC 

SLOAD  HL  WITH  STR  DESC  ADDRESS 

^  TO 

C587 

77 

HOO 

HtA 

SSAVE  STRING  LENGTH  TO  1ST  DESC.  BYTE 

130 

C588 

23 

INX 

H 

.INCREMENT  HL  TO  2ND  BYTE  OF  DESCRIPTOR 

131 

C5B9 

EB 

X2HG 

.CHANGE  DE  WITH  HL 

132 

C58A 

2A0225 

LHLD 

STRING 

SPUT  STRING  ADDRESS  IN  HL 

13.3 

C58D 

EB 

X2HG 

SCHANGE  DE  WITH  HL 

13^ 

CSSE 

73 

HOV 

H.E 

SSAVE  L.O.B.  OF  STR  ADDRESS  TO  STR  DESC 

135 

C58F 

23 

INX 

H 

S INCREMENT  HL  TO  3RD  BYTE  OF  DESCRIPTO' 

134 

C5«0 

72 

HOO 

HtD 

SSAVE  H.O.B.  OF  STR  ADDRESS  TO  STR  DESC 

13‘ 

C5  =  l 

2A0025 

LHLD 

DESC 

SLOAD  HL  WITH  DESCRIPTOR  ADDRESS 

13b 

2594 

EB 

X2HG 

SPUT  DESC  ADDRESS  IN  DE 

13« 

2595 

3E03 

HOI 

A»03H 

SPUT  STRING  CODE  IN  ACCUMULATOR 

140 

2597 

239AC5 

JHP 

DONE 

S60T0  DONE 

142 

f 

H3 

;«  DONE 

144 

145 
144 

259A 

El 

1 

done;  pop 

H 

SPULL  OLD  SP  OFF  NEW  STACK 

147 

259B 

F9 

SPHL 

SRESTORE  OLD  STACK 

148 

C50C 

29 

RET 

SRETURN  TO  MBASIC 

14'^ 

24F1 

ORG 

0C4F1H 

SHOVE  LOCATION  COUNTER 

150 

24F1 

5641424944 

DB 

'VALID' 

STELL  BASIC  THAT  PROGRAM  IS  LOADED 

151 

C4F7 

ORG 

024F7H 

SHOVE  LOCATION  COUNTER  AGAIN 

152 

24F7 

31 

DB 

'1' 

S* 

153 

C4F8 

END 

L  ' 

I 


► 


L 


ll'Wl  !'■■  ■  V  ^  ^  '■-.V  .  . . .  '  '  » 


6i 

C51E 

6F 

HOV 

L>A 

?LOAD  L  REG  WITH  L.O.B.  OF  STR  ADDRESS 

C51F 

13 

INX 

D 

fINC  DE  TO  POINT  TO  STR  ADDRESS  H.O.D. 

63 

C520 

lA 

LDAX 

D 

fLOAD  A  WITH  H.O.B.  OF  STR  ADDRESS 

C^2 1 

67 

MOO 

H>A 

JLOAD  H  REG  WITH  H.O.B. 

65 

C522 

2202C5 

SHLD 

STRING 

fSAVE  STRING  ADDRESS 

.  60 

C525 

78 

MOO 

AfB 

fMOVE  STRING  LENGTH  TO  A 

)  6- 

C526 

EB 

XCHG 

JPUT  STR  ADDRESS  IN  DE 

69 

C527 

Cl 

POP 

B 

fPOP  INIT  RETURN  ADDRESS  OFF  OLD  STACK 

6° 

C52B 

210000 

LXI 

HfOOOOH 

fCLEAR  HL 

70 

C52B 

39 

DAD 

SP 

fADD  STACK  POINTER  (SP)  TO  HL 

71 

C52C 

3100C6 

LXI 

SP*0C600H 

fINIT  NEW  STACK  POINTER  AT  C600H 

7: 

C52F 

E5 

PUSH 

H 

fPUSH  OLD  SP  ONTO  NEW  STACK 

73 

C530 

C5 

PUSH 

B 

IPUSH  INIT  RETURN  ADDRESS  ONTO  NEW  STAC 

7^ 

C531 

C9 

RET 

(RETURN  FROM  SUBROUTINE 

7t 

ntutttttttttttttttttttttttttttt* 

7^ 

;»  SEND 

ROUTINE 

71; 

80 

C532 

2A00C5 

send: 

LHLD 

DESC 

(LOAD  HL  WITH  STR  DESCR.  ADDRESS 

81 

C535 

4E 

MOU 

CfM 

(MOVE  STRING  LENGTH  TO  C 

82 

C536 

2A02C5 

LHLD 

STRING 

(LOAD  HL  WITH  STRING  STARTING  ADDRESS 

83 

C539 

EB 

XCHG 

(EXCHANGE  HL  AND  DE 

Qu 

C53A 

0601 

MVI 

B»01H 

(INITIALIZE  B  AS  CHAR.  CNTR 

C53C 

21A0E0 

WAITi; 

LXI 

HfSTAT 

(LOAD  HL  WITH  ADDRESS  OF  STATUS 

et 

C53F 

7E 

MOU 

AiM 

(LOAD  A  WITH  STATUS 

8'’ 

C540 

E602 

ANI 

TRDY 

(MASK  OUT  TRANS.  READY  BIT 

88 

C5^2 

FE02 

CPI 

TRDY 

(IS  READY  BIT  SET? 

00 

C544 

C23CC5 

JN2 

UAITl 

(IF  NOTf  WAIT  AGAIN  ... 

90 

C547 

lA 

LDAX 

D 

(LOAD  ACC  WITH  CHAR. 

91 

C5^8 

32A1E0 

STA 

DATA 

(SEND  CHAR.  OUT 

^  ll 

C54P 

79 

MOV 

ArC 

(PUT  STRING  LENGTH  IN  A 

C54C 

B8 

CMP 

B 

(COMPARE  WITH  CHAR,  CNTR 

P/ 

CS^D 

CA9AC5 

JZ 

DONE 

(ALL  CHAR.S  SENT.  GOTO  DONE 

95 

C550 

13 

INX 

D 

(INCREMENT  CHAR.  POINTER 

96 

C551 

04 

INR 

B 

(INCREMENT  CHAR,  COUNTER 

07 

CP 

C552 

C33CC5 

f 

JMP 

WAITI 

(LOOP  BACK  FOR  NEXT  CHAR. 

QO 

10' 

f 

101 

i*  RECIEVE 

lo; 

103 

lOj 

C555 

0601 

REC: 

MVI 

B»01H 

(INITIALIZE  CHAR.  COUNTER 

1C  5 

C557 

2A02C5 

LHLD 

STRING 

(LOAD  HL  WITH  STRING  ADDRESS 

lOi 

C55A 

EB 

XCHG 

(PUT  STRING  ADDRESS  IN  DE 

10- 

C55B 

21A0E0 

WAIT2: 

LXI 

HfSTAT 

(LOAD  HL  WITH  STAT  ADDRESS 

lOE 

C55E 

7E 

MOV 

AfM 

(LOAD  ACC  WITH  STATUS 

O 

o 

C55F 

E601 

ANI 

DRDY 

(MASK  OUT  DRDY  BIT 

ll-? 

C5ol 

FEOl 

CPI 

DRDY 

(SEE  IF  BIT  IS  SET 

1  1  1 

C5r3 

C25BC5 

JNZ 

WAIT2 

(WAIT  UNTILL  BIT  IS  SET 

112 

C5:6 

21A1E0 

getit: 

LXI 

HfDATA 

(LOAD  HL  WITH  DATA  ADDRESS 

111 

C5i9 

7E 

NOV 

AfM 

(READ  IN  THE  NEXT  CHARACTER 

1  1 

C5cA 

E67F 

ANI 

07FH 

(GET  RID  OF  HIGH  BIT 

115 

C5sC 

FEOA 

CPI 

OAH 

(SEE  IF  CHAR  WAS  A  LINE  FEED 

llo 

C56E 

CA7DC5 

JZ 

RDONE 

(IF  IT  WAS  THEN  GOTO  RDONE 

11- 

C571 

12 

STAX 

D 

(STORE  ACC  TO  STRING  STORAGE  LOCATION 

119 

13 

INX 

D 

(INCREMENT  CHAR.  STORAGE  POINTER 

11» 

C5^3 

04 

INR 

B 

(INCREMENT  CHAR,  COUNTER 

1  2'> 

C5-4 

78 

MOV 

AfB 

(PUT  CHAR  CNTR  IN  A 

1 

1 


'1 


•err  Tr  tt^c  nnc  c-n  hut  nn 


I 


C505  Cril6C5 
C508  C33:C5 

C50B  CII16C5 
C50E  21A0E0 
C511  3615 
C513  C355C5 


it 

it  THIS  PROGRAM  IS  CALLED  FROM  MFASIC  TO  SEND  OR 
it  RECIE';E  characters  from  the  RS232  COMMUNICATIONS  ' 
i»  CARD. 

it  THE  FORMATT  FOR  CALLING  THE  ROUTINE  FROM 

it  MBASic  IS  AS  follows: 

i*  Xi=USRl<'STRlNG* )  TO  SEND  ‘STRING* 

f»  X<=USR2  TO  RECIEUE  A  STRING 

5*  <DEF  USR1=SSTART.  DEF  USR2=RSTART) 

it 

it  PROGRAM  WRITTEN  BY:  JUSTIN  D.  REDD  -BYU  CAM  LAB- 
;*  AUGUST  1983 

it 

itttttttttttttttttttttttttttttttttttttttttttttttttttttt 

f 

ORG  0C50OH  JSTART  ASSEMBLY  AT  LOCATION  C500H 

J 

itttttttttttttttttttttttttttttttttttt 
it  I.  INITIALIZATION 
itttttttttttttttttttttttttttttttttttt 
i 

STAT  EQU  OEOAOH 

DATA  EQU  OEOAIH  i  ADDRESSES  OF  RS232  CARD  BUFFERS 

;***  STAT  AND  DATA  SET  FOR  APPLE  SL0T#2. 

ittt  FOR  OTHER  SLOTS!  STAT=COXOH  t  DATA=C0X1H  X=8+SL0T* 

ittt 

DRDY  EQU  OlH  i  DATA  READY  CODE  IN  STATUS  REG. 

TRDY  EQU  02H  i  TRANSMIT  READY  CODE  IN  STATUS  RE 

DESC:  DS  2  {RESERVE  2  BYTES  FOR  STRING  DESCRl 

string:  DS  2  }  *  *  •  FOR  STRING  ADDREJ 

LCNTR:  DS  1  {RESERVE  1  BYTE  FOR  LOOP  COUNTER 


{  DATA  READY  CODE  IN  STATUS  REG. 

{  TRANSMIT  READY  CODE  IN  STATUS  REG. 
{RESERVE  2  BYTES  FOR  STRING  DESCRIPTOR 
{  *  *  •  FOR  STRING  ADDRESS 

{RESERVE  1  BYTE  FOR  LOOP  COUNTER 


ttttttttttttttttttttttttttttttttttt 

t  II.  MAIN  PROGRAM 

ttttttttttttttttttttttttttttttttttt 


itttt  SEND  OR  RECIEVE  ?  tttt 
i 

SSTART:  CALL  INIT 

JMP  SEND 


rstart:  call 

LXI 

MVI 

JMP 


INIT 

HfSTAT 

M.015H 

REC 


{INITIALIZE  SUBROUTINE 
{JUMP  TO  SEND  ROUTINE 

{INITIALIZE  SUBROUTINE 
{LOAD  HL  WITH  STAT  (COMMAND  REG)  ADDREi 
{SET  RS-232  CTS  LINE  (ENABLE  IBM  TRANS 
{JUMP  TO  RECIEVE  ROUTINE 


itttttttttttttttttttttttttttttttt 
it  INITIALIZE  SUBROUTINE 
itttttttttttttttttttttttttttttttt 

i 


c  r 

C516 

47 

init: 

MOV 

BrA 

{MOVE  STRING  LENGTH  TO  B 

c  » 

C517 

EB 

XCHG 

{EXCHANGE  DE  AND  HL 

5' 

C518 

2200C5 

SHLD 

DESC 

{SAVE  STR  DESCRIPTOR  ADDRESS 

c  ;■ 

C51B 

EB 

XCHG 

{RESTORE  DE  AND  HL 

C  Z 

C51C 

13 

INX 

P 

{INCREMENT  DE  TO  POINT  TO  S^R  ADDRESS 

L  .  • 

C51D 

lA 

LDAX 

D 

{LOAD  A  WITH  1ST  BYTE  OF  STR  ADDRESS 

■J'JP'L-  W'l 


121 

C48E 

3A04C4 

LDA 

LENGTH 

1L0AD  ACC  with  STRING  LENGTH 

122 

C4®1 

3D 

DCR 

A 

.‘DECREMENT  LENGTH 

122 

C4®2 

3204C4 

STA 

LENGTH 

.STORE  DECREMENTED  LENGTH 

12a 

C4®5 

CACDC4 

JZ 

PONE 

JIF  LENGTH  =  0  THEN  WE'RE  DONE 

122 

C4®8 

2A00C4 

LHLD 

STRING 

5L0AD  HL  WITH  STRING  ADDRESS 

126 

C49B 

23 

INX 

H 

FINCREMENT  STRING  ADDRESS 

12? 

C49C 

2200C4 

SHLD 

STRING 

JSTORE  INCREMENTED  STRING  VALUE 

128 

12® 

130 

C49F 

C387C4 

JMP 

MAIN 

;go  back  to  beginning  of  main 

131 

i«  SEND 

132 

132 

13a 

C4f-2 

E67F 

r 

send; 

ANI 

07FH 

JCLEAR  BIT  *7 

132 

C444 

FE2C 

CFI 

02CH 

{COMPARE  ACC  WITH 

13; 

C446 

C2ABC4 

JNZ 

SCONTI 

;IF  ACC  <  >  '.■  THEN  GOTO  SCONTI 

13  • 

C4A9 

3E0D 

MOI 

ArODH 

{CHANGE  ACC  TO  'RETURN* 

13? 

C44B 

2A05C4 

SCONTi; 

LHLD 

STAT 

{LOAD  HL  WITH  STAT  ADDRESS 

1.1 

C44E 

47 

MOO 

B>A 

{PUT  CHAR  IN  B 

l^r, 

C44F 

7E 

SC0NT2; 

MOV 

A>M 

{LOAD  ACC  WITH  STAT 

la: 

C4B0 

E604 

ANI 

04H 

{MASK  OUT  READY  BIT 

la? 

C4B2 

FE04 

CFI 

04H 

{COMPARE  ACC  WITH  04H 

la? 

C4B4 

C2AFC4 

JNZ 

SC0NT2 

{GO  BACK  AND  WAIT  TILL  READY  =  1 

\Ac. 

C4B7 

2A07C4 

LHLD 

DATA 

.‘LOAD  DATA  ADDRESS  INTO  HL 

142 

C4BA 

70 

MOV 

HfB 

‘.PUT  CHAR  IN  DATA  REGISTER 

14; 

C4BB 

3E41 

MVI 

A>041H 

{LOAD  ACC  WITH  I/O  REQUEST  WORD 

14® 

C4BD 

2A05C4 

LHLD 

STAT 

{LOAD  HL  WITH  STAT  ADDRESS 

14: 

C4C0 

77 

MOV 

H>A 

{SEND  I/O  REQUEST 

14® 

C4C1 

7E 

SC0NT3: 

MOV 

AfM 

{PUT  STAT  IN  ACC 

150 

C4C2 

E604 

ANI 

04H 

{MASK  OUT  READY  BIT 

15: 

C4C4 

FE04 

CPI 

04H 

{COMPARE  ACC  WITH  04H 

152 

C4C6 

CAC1C4 

JZ 

SC0NT3 

{WAIT  TILL  READY  *  0 

152 

C4C9 

3E40 

MVI 

A»040H 

{LOAD  ACC  WITH  I/O  REQ  CLEAR  WORD 

15a 

C4CB 

77 

MOV 

N>A 

{SEND  I/O  REQ  CLEAR  WORD 

155 

15; 

15' 

C4CC 

C9 

RET 

{RETURN  FROM  SUBROUTINE 

f 

it****1i.t**tttxttt*t*ttt*x*t*t*t$ 

15® 

it  DONE 

15® 

16'’ 

16' 

nttttttttttttt*t****ttttttttttt 

C4CD 

2A05C4 

7 

pone: 

LHLD 

STAT 

{LOAD  HL  WITH  STAT  ADDRESS 

16. 

C4DO 

7E 

MOV 

AfM 

{PUT  STATUS  IN  ACC 

16  7 

C4D1 

E604 

ANI 

04H 

{MASK  OUT  READY  BIT 

16® 

C4B3 

FE04 

CPI 

04H 

{COMPARE  ACC  WITH  04H 

167 

C4B5 

C2CriC4 

JNZ 

DONE 

{GO  PACK  AND  WAIT  TILL  READY  =  1 

16- 

C4D8 

2A07C4 

LHLD 

DATA 

{LOA-D  DATA  ADDRESS  INTO  HL 

16' 

C4BB 

360D 

MVI 

M»ODH 

{SEND  RETURN  CHAR 

le® 

C4DD 

3E41 

MVI 

Af041H 

{LOAD  ACC  WITH  I/O  REQUEST  WORD 

16" 

C4DF 

2A05C4 

LHLD 

STAT 

{LOAD  HL  WITH  STAT  ADDRESS 

I?/ 

C4E2 

~1 

MOV 

HrA 

{SEND  I/O  REQUEST 

17: 

C4E3 

7E 

DCONTi; 

MOV 

A»M 

{PUT  STAT  IN  ACC 

172 

C4E4 

E604 

ANI 

04H 

{MASK  OUT  READY  BIT 

17i 

C4E6 

FE04 

CPI 

04H 

{COMPARE  ACC  WITH  04H 

174 

C4E3 

CAE3C4 

JZ 

DCONTI 

{WAIT  TILL  READY  =  0 

17': 

C4EB 

3E40 

MVI 

A»040H 

{LOAD  ACC  WITH  I/O  REQ  WORD 

17; 

C4ED 

77 

MOV 

Mf  A 

{SEND  I/O  REQ  CLEAR  WORD 

17' 

C4EE 

El 

POP 

H 

{POP  OLD  STACK  POINTER  OFF  NEW  STACK 

1 

C4EF 

F9 

SPHL 

{RESTORE  OLD  STACK 

'  7  ; 

C4!®0 

C9 

RET 

160 

C4F1 

26414C4944 

DB 

'VALIDl' 

{MESSAGE  TO  TELL  BASIC  PROGRAM  IS  LO® 

( 


^  1 

C437 

8B7484 

8ALL 

SETUP 

fSETUP  STAT  1  DATA  PEG  ADDRESSES 

C43A 

833784 

JMP 

MAIN 

fJUMP  TO  MAIN  PROGRAM 

*  ] 

84  311 

8D5784 

8Y5: 

8ALL 

INIT 

ilNITIALIZE 

A  1 

84-^0 

0609 

MVI 

BfO’H 

fOFFSET  STAT  REG  VALUE  FOR  8Y*5 

iZ 

84“2 

0E09 

MVI 

ef09H 

{OFFSET  DATA  REG  VALUE  FOR  CY45 

6- 

8444 

8D7484 

8ALL 

SETUP 

fSETUP  STAT  1  DATA  REG  ADDRESSES 

6^ 

8447 

838784 

JMP 

MAIN 

{JUMP  TO  MAIN  PROGRAM 

6'z 

844A 

8D5784 

8Y6: 

8ALL 

INIT 

{INITIALIZE 

6'= 

844D 

060A 

MUI 

BfOAH 

{OFFSET  STAT  REG  VALUE  FOR  CY*6 

7'-- 

844F 

OEOA 

MVI 

GfOAH 

{OFFSET  DATA  REG  VALUE  FOR  CY#6 

7: 

8451 

8D7484 

8ALL 

SETUP 

{SETUP  STAT  t  DATA  REG  ADDRESSES 

’’Z 

7  ' 

8454 

838784 

JMP 

MAIN 

{JUMP  TO  MAIN  PROGRAM 

7  : 

1 

7. 

}»  INITIALIZE 

SUBROUTINE 

It, 

/ 

7f 

8437 

EB 

f 

init: 

XCHG 

{EUIT8H  DE  AND  HL 

7  - 

8459 

220284 

SHLD 

DES8 

{SAVE  STRING  DES8RIPT0R  ADDRESS 

8' 

845B 

7E 

MOV 

AfM 

{PUT  STRING  LENGTH  IN  A88 

81 

8458 

320484 

STA 

LENGTH 

{STORE  STRING  LENGTH 

e: 

845F 

EB 

X8HG 

{RESTORE  REGISTERS 

e:- 

848  0 

13 

INX 

D 

{IN8REMENT  DE  TO  POINT  TO  STRING  ADD 

8  '• 

8481 

lA 

LI'AX 

D 

{LOAD  AGO  WITH  L.O.B.  OF  STR  ADDRE 

rc 

e: 

8442 

6F 

MOV 

LfA 

{LOAD  L.O.B.  OF  STR  ADDRESS  INTO  L 

6- 

8483 

13 

INX 

D 

{IN8REMENT  DE  TO  POINT  TO  H.O.B 

8" 

8464 

lA 

LDAX 

D 

{LOAD  A88  WITH  H.O.B.  OF  STR  ADDRESS 

88 

8465 

67 

MOV 

HfA 

{LOAD  L.O.B.  OF  STR  ADDRESS  INTO  H 

8^ 

8466 

220084 

SHLD 

STRING 

{SAVE  STRING  ADDRESS 

90 

8469 

81 

POP 

B 

{POP  INIT  RETURN  ADDRESS  OFF  OLD  STA 

91 

846A 

210000 

LX  I 

HfOOOOH 

{CLEAR  HL  TO  0000 

98 

846D 

39 

DAD 

SP 

{ADD  STA8K  POINTER  (SP)  TO  HL 

93 

846E 

310086 

LXI 

SPf08600H 

{SET  STACK  POINTER  TO  NEW  STACK  AT 

c 

9- 

8471 

E5 

PUSH 

H 

{PUSH  OLD  STACK  LOCATION  ONTO  NEW 

ST 

93 

8472 

85 

PUSH 

B 

{PUSH  INIT  RETURN  ADDRESS  ONTO  NEW 

S 

9t 
o  r 

8473 

89 

RET 

{RETURN  FROM  SUBROUTINE 

7 

98 

r 

9- 

it  SETUP  DATA 

t 

8NTRL  ADDRESSES 

lO'j 

101 

108 

ittttttttttttttttttttttttttttttt 

8474 

21F0E0 

r 

setup: 

LXI 

H.STBASE 

{LOAD  HL  WITH  STAT  BASE  ADDRESS 

lo: 

8477 

78 

MOV 

AfB 

{PUT  STAT  OFFSET  FOR  CY*  IN  ACC 

lOJ 

8478 

85 

ADD 

L 

{ADD  L.O.B.  OF  STAT  BASE  ADDRESS 

103 

84"9 

6F 

MOV 

LfA 

{PUT  ADJUSTED  L.O.B.  BACK  IN  L 

lOr 

84'A 

220584 

SHLD 

STAT 

{SAVE  STAT  REG  ADDRESS  TO  STAT 

10 

84'Ii 

21F4E0 

LXI 

HfDTBASE 

{LOAD  HL  WITH  DATA  BASE  ADDRESS 

108 

8480 

79 

MOV 

AfC 

{PUT  DATA  OFFSET  FOR  CY*  IN  ACC 

lO'' 

8481 

85 

ADD 

L 

{ADD  L.O.B.  OF  DATA  BASE  ADDRESS 

1 1" 

8482 

6F 

MOV 

LfA 

{PUT  ADJUSTED  L.O.B.  BACK  IN  L 

111 

8483 

220784 

SHLD 

DATA 

{SAVE  DATA  REG  ADDRESS  TO  DATA 

11-' 

113 

1  M 

8486 

89 

RET 

{RETURN  FROM  SUBROUTINE 

f 

113 

it  MAIN 

PROGRAM 

lit 

11' 

11? 

ittttttttttttttttttttttttttttttt 

8487 

2A0084 

r 

hain: 

LHLD 

STRIPr. 

{LOAD  HL  WITH  STRING  ADDRESS 

1 1 

848A 

7E 

MOV 

AfM 

{LOAD  ACC  WITH  FIRST  CHAR 

1  2 '  • 

8^88 

8IIA284 

GALL 

SEND 

{SEND  CHARACTER  TO  CY'S 

560  REM  *  LOAD  CYDRIVER.HEX  ONLY 

570  REM  *tt***1i**ttt*t*tttttt*tt* 

560  REM 

590  PRINT: INVERSE: PRINT  "LOADING  CYDRIVER.HEX  AT  C400H" NORMAL: PRINT 
600  PRGM* = " B : LOADASM . BAS " : SL I NE=620: HP I LE*= "B: CYDR I VER. HEX " 

610  CHAIN  "B:BLOAD.BAS", , ALL 
620  GOTO  730 
630  REM 

640  REM  *t***tt**tt**tt*t**t***** 

650  REM  *  LOAD  COMM. HEX  ONLY 

660  REM  tt*t*tt**ttt**t*ttttt**t* 

670  REM 

680  PRINT: INVERSE: PRINT  "LOADING  COMM. HEX  AT  C500H" ;: NORMAL: PRINT 
690  PRGM$="B: LOADASM. BAS" : SLINE=710: HFILE»="B: COMM. HEX" 

700  CHAIN  "B:BLOAD.BAS" 

710  GOTO  730 
720  REM 

730  REM  tt*ttt*t*ttttt*ttt****t* 

740  REM  *  CHAIN  BACK 
750  REM 
760  REM 

820  DEF  USR1=S<HC409 

830  DEF  USR2=8<HC416 

840  DEF  USR3=&HC423 

850  DEF  USR4=&HC430 

860  DEF  USR5=&HC43D 

870  DEF  USR6=&HC44A 

880  DEF  USR7=S<HC505 

890  DEF  USRe=8<HC50B 

900  CHAIN  CALLER*, CLINE, ALL 

910  END 


-  10  REM  **t*t**t*t**ttt*ttttttt**ttt*ttt*t 

20  REM  * 

30  REM  »  BLQAD.BAS 

40  REM  *  BY 

50  REM  *  JUSTIN  D.  REDD  -  BYU  CAM  LAB 

to  REM  * 

70  REM  *  PROBRAM  TO  LOAD  A  .HEX  FILE 
80  REM  «  INTO  MEMORY  FROM  MBAS I C 
90  REM  t 

100  REM  »  OPERATION:  THIS  PROGRAM  WAS  WRITTEN 
110  REM  *  TO  BE  CHAINED  TO,  USING  THE  ’COMMON’ 

120  REM  t  STATEMENT  TO  DECLARE  THE  FOLLOWING 
130  REM  *  VARIABLES:  PRGM*=PROGRAM  TO  CHAIN 
140  REM*  TO  AFTER  LOADING  .HEX  FILE 

150  REM*  SLINE=STARTING  LINE  IN  PRGM* 

160  REM*  HFILE*=.HEX  FILE  NAME 

170  REM* 

180  REM* » *»*«««**««******«««»*««»*«*****«« 

190  REM 

200  COMMON  PRGMt,HFILE*,SLINE, CLINE, CALLER* 

210  REM 

220  REM  tttttttttttttttttttttttttt 

230  REM  *  INITIALIZE  * 

240  REM  tttttttttttttttttttttttttt 

250  REM 

260  OPEN"I",#l,HFILEt 
270  REM 

280  REM  t************************* 

290  REM  *  MAIN  PROGRAM  * 

3C0  REM  tttttttttttttttttttttttttt 

310  REM 
320  GOSUB  360 
330  GOSUB  470 
340  GOTO  320 
350  REM 

360  REM  tttttttttttttttttttttttttt 

370  REM  *  READ  LINE  S/R  * 

380  REM  tttttttttttttttttttttttttt 

390  REM 

400  INPUT#1,HLINE» 

410  HBYTES*="8<H"  +  MID*  (HLINE*,  2, 2) 

420  HADDRESS*="8fH"  +  MID*  (HLINE*,  4,  4) 

430  BYTES=VAL(HBYTES*) : ADDRESS=VAL (HADDRESS*) 

440  IF  BYTES=0  AND  ADDRESS=0  THEN  HOME: CLOSE: PRINT  "PROGRAM  LOADED" : CHAIN  PRGM*. 
SLINE, ALL 
450  RETURN 
460  REM 

470  REM  ************************** 

480  REM  *  POKE  BYTES  S/R  t 

490  REM  tttttttttttttttttttttttttt 

500  FOR  I  =  1  TO  BYTES 

510  LOCATION=ADDRESS  +  (I  -  1) 

520  CODE*="S(H"  +  MID*  (HLINE*,  (8  +  (I  »  2>),2) 

530  CODE=VAL(CODE*) 

540  POKE  LOCATION, CODE 
550  NEXT  I 


I 


560  RETURN 


r 


10  REM  t***tt**tt**t**t***tt****ttt*ttt*tttttt**tttttttttttt* 

20  REM  * 

30  REM  *  INTERP.BAS  BY  JUSTIN  D.  REDD 

40  REM  *  -  BYU  CAM  LAB  - 

50  REM  t  CNC  -  CY512  TRANSLATOR  NOVEMBER,  1983 
60  REM  * 

70  REM  *  THIS  PROGRAM  READS  RS274  STANDARD  NUMERICAL  CONTROL 
80  REM  t  CODES  FROM  A  TEXT  FILE  AND  TRANSLATES  THEM  TO 
90  REM  *  COMMANDS  FOR  THE  CY512  STEPPER  MOTER  CONTROLLER. 

100  REM*  THE  RESULTING  CY512  COMMANDS  ARE  STORED  IN  A  TEXT 
110  REM*  FILE  OF  THE  SAME  NAME  WITH  THE  SUFFIX  OF  *.CYC 
120  REM* 

130  REM«* ******«««*«**»« ««»**««««*««*«*«***»*****»«**«***«*»« 

140  REM 

145  COMMON  MENU* 

146  REM 

147  REM 

150  HOME:  PRINT  •'RS274  -  CY512  INTERPRETER  -  BYU  CAM  LAB 

160  PRINT: PR I NT" - 

- ": PRINT: PRINT: PRINT 

170  REM 

180  REM  **««****«««****«**«**«»»*****« 

190  REM  *  OPEN  FILE  AND  D I MENTION  ARRAYS 
200  REM  t***************************** 

210  REM 

220  INPUT  "INTERPRET  WHAT  RS274  FILE  ";RS274* 

230  TEST*=RIGHT*  (  RS274*,4  ) 

240  IF  LEFT*(  TEST*, 1  )  =  THEN  GOTO  255 

250  RS274*  =  RS274*  +  ".RSC" 

255  IF  MID*<RS274*,2, 1)  *  THEN  LLL  =  14  ELSE  LLL  «  12 

260  IF  LEN(RS274*) >LLL  THEN  PR I NT: PR I NT  "FILENAME  TOO  LONG !" i PRINT: GOTO  220 
265  ON  ERROR  GOTO  2181 
270  0PEN"I",#1,RS274* 

280  P=INSTR(RS274*, ". ") 

290  CY512*=MID*(RS274*, 1,P-1)  +  ".CYC" 

300  0PEN"0",#2,CY512* 

305  ON  ERROR  GOTO  O 
310  DIM  CYM0VE*(100) 

320  DIM  SLINE*(100) 

330  NLINE  =  O 

340  REM  X***************************** 

350  REM  *  INPUT  LINES  AND  SEPARATE 

360  REM  t***************************** 

370  REM 

380  FOR  LINES  =  1  TO  100 
390  INPUT  #1,SLINE* (LINES) 

400  IF  SLINE* (LINES)  =  "*"  THEN  LINES  =  LINES  +  1  :  GOTO  420 

410  NEXT  LINES 

420  FOR  I  =  1  TO  (LINES  -  1) 

430  XFLAG  =  O  ;  YFLAG  =  0  :  ZFLAG  =  O 
440  NLINE  =  NLINE  +  1 
450  PRINT 

460  SLINE*=SLINE*(I) 

470  N=INSTR(SLINE*, "N")  :  X=INSTR (SLINE*, " X" )  :  Y=INSTR (SLINE*, "Y" ) 

480  Z=INSTR(SLINE*, "Z")  :  F=INSTR (SLINE*, "F" )  ;  ENDLINE=INSTR (SLINE*, "*" > 
490  IF  N=0  AND  X=0  AND  Y=0  AND  Z=0  AND  F=0  AND  ENDLINE  <>  O  THEN  GOTO  2200 


500  IF  N=0  DR  F=0  OR  ENDLINE=0  THEN  GOTO  1800 
510  IF  X=0  THEN  X=CINT ( (N+Y) /2)  :  XFLAG  =  1 

520  IF  2=0  THEN  Z=CINT ( < Y+F) /2)  :  ZFLAG  =  1 

530  IF  Y=0  THEN  Y=CINT ( ( X+Z ) /2)  :  YFLAG  =  1 

540  IF  N>X  OR  N>Y  OR  N>Z  OR  N>F  OR  N>ENDLINE  THEN  GOTO  1670 

550  IF  X>Y  OR  X>Z  OR  X>F  OR  X>ENDLINE  THEN  GOTO  1670 

560  IF  Y>Z  OR  Y>F  OR  Y>ENDLINE  THEN  GOTO  1670 

570  IF  Z>F  OR  2>ENDLINE  THEN  GOTO  1670 

580  IF  F>ENDLINE  THEN  GOTO  1670 

590  REM 

600  REM  *tt*****t*ttt  SEPARATE  PARAMETERS  tt*****tt**t*ttt 

610  REM 

620  IF  XFLAG  =  1  THEN  X*="00. 000“  :  GOTO  680 

630  IF  YFLAG  =  0  THEN  X*  =  MID* (SLINE*, X+1 , Y- (X+1 > ) :  GOTO  660 

640  IF  YFLAG  =  1  AND  ZFLAG  =  0  THEN  X*=MID* (SLINE*, X+1 , Z- ( X+1 ) )  i  GOTO  660 

650  IF  YFLAG  =  1  AND  ZFLAG  =  1  THEN  X*=MID* (SLINE*, X+1 , F- (X+1 ) > 

660  PARAMETER*=X*  :  GOSUB  810 
670  X*=PARAMETER* 

680  IF  YFLAG  =  1  THEN  Y»="00.000“  :  GOTO  730 

6‘^0  IF  ZFLAG  =  O  THEN  Y*=MID*  (SLINE*,  Y+1 ,  Z- ( Y+ 1 )  )  :  GOTO  710 

700  IF  ZFLAG  =  1  THEN  Y$=MID* (SLINE*, Y+1 , F- ( Y+1 ) ) 

710  PARAMETER*  =  Y*  :  GOSUB  810 
720  Y*=PARAMETER* 

730  IF  ZFLAG  =  1  THEN  Z*  =  ”00.000“  ELSE  Z*  =  MID* (SLINE*, Z+1 , F- (Z+1 ) ) 

740  PARAMETER*  =  Z*  :  GOSUB  810 
750  Zt=PARAMETER* 

760  F*  =  MID* (SLINE*, F+1, ENDLINE  -  (F+l>> 

770  PARAMETER*=  F*  :  GOSUB  810 
780  F*  =  PARAMETER* 

790  GOTO  870 
800  REM 

810  REM  tttttttt**  SUBROUTINE  TO  DELETE  SPACES  tt**t*t*t$t*t 
820  REM 

830  SPACE  =  INSTR  (  PARAMETER*, “  “  )  :  LENGTH  =  LEN  (PARAMETER*) 

840  IF  SPACE  =  0  THEN  RETURN 

850  PARAMETER*  =  LEFT* (PARAMETER*, SPACE- 1 )  +  RIGHT* (PARAMETER*, LENGTH  -  SPACE) :G 
OTO  830 
860  REM 


870 

IF 

LEFT* (X*, 1) 

<> 

%l  ^  1* 

AND 

LEFT* (X*,  1) 

<> 

M  , 

_  II 

THEN 

X*="+" 

+ 

X* 

880 

IF 

LEFT*(Y*,  1) 

<> 

■1  ^  II 

AND 

LEFT* (Y*, 1) 

<> 

■1 , 

_  II 

THEN 

Y*=“+" 

+ 

Y* 

890 

IF 

LEFT*(Z*,  1) 

<> 

II  ^  II 

AND 

LEFT* (Z*, 1) 

<> 

II  , 

_  II 

THEN 

Z*="+" 

Z* 

900 

IF 

LEN(X»)  >  7 

OR 

LEN(Y*) 

>  7  OR  LEN(Zt) 

> 

7 

OR  LEN  (F*) 

> 

6  THEN  GOTO  1730 

910  XPNT=INSTR(X*, ". “)  :  YPNT=INSTR (Y*, “ . “ )  :  ZPNT=INSTR (Z», ” . “ )  :  FPNT=INSTR (Fi 

••  II  \ 

9  •  ' 

920  IF  XPNT>4  OR  YPNT>4  OR  ZFNT>4  OR  FPNT>4  THEN  GOTO  1730 
930  REM 

940  REM  *ttt**t*tt*t*t*t**tttt******t** 

950  REM  *  INTERPOLATE  MOVE 

960  REM  **t***tt*t*t*t***ttt**t*tt**t** 

970  REM 

980  XEIST=VAL(X*>  ;  YDIST=VAL (Y*)  :  ZDIST=VAL (Z*)  :  FEED=VAL(F*) 

990  TLDIST=SDR(  (XDIST  ''  2)  +  (YDIST  2)  +  (ZDIST  2)  ) 

1000  TIME=TLDIST/FEED 

1010  XSPEED=ABS(XDIST/TIME)  ;  YSPEED=ABS (YDIST/TIME)  ;  ZSFEED=ABS (2DIST/T1ME) 
1020  IF  (XSPEED  <  1.65  AND  XSPEED  >  O)  DR  (YSPEED  <  1.65  AND  YSPEED  >0)  OR  (ZSP 
EED  <  1.65  AND  ZSPEED  >0)  THEN  GOSUB  1860 


1030  IF  XSPEED  >  112  OR  YSPEED  >  112  OR  2SPEED  >112  THEN  GOSUB  2030 
1040  DISTANCE=  (-1)  *  XDIST  :  SPEED=XSPEED 
1050  GOSUB  1240 
1060  XCY*=CY* 

1070  DISTANCE=  (-1)  »  YD I ST  :  SPEED=YSPEED 
1080  GOSUB  1240 
1090  YCY*=CY* 

1100  DISTANCE=ZDIST  :  SPEED=ZSPEED 
1110  GOSUB  1240 
1120  ZCY*=CY» 

1130  REM 
1140  REM 

1150  REM  *  SAVE  MOVE  TO  CY  FILE 
1160  REM 
1170  REM 

1180  CYM0VE*(I)=CHR*(34)+XCY*  +•*■“+  YCY*  +••;••  +  ZCY*+CHR*  (34) 
1190  NEXT  I 

1200  FOR  LINES  =  1  TO  100 
1210  PRINT  #2,CYM0VE*(LINES) 

1220  NEXT  LINES 
1230  GOTO  370 
1240  REM 

1250  REM  *  ROUTINE  TO  CONVERT  DATA  TO  CY512  COMMANDS 
1260  REM  t*t*tttt*tt*t*ttt**t*$*tttt*****t**tttt 

1270  REM 

1275  IF  DISTANCE  =  0  THEN  CY*='*I,N  O"  :  RETURN 
1280  IF  DISTANCE  <  O  THEN  DIRECTION*=*'-** 

1290  IF  DISTANCE  >=  O  THEN  DIRECTION*="+" 

1300  STEPS  =  CINT(ABS (DISTANCE  »  1600)) 

1310  REM  *t*  CALCULATE  RATE  AND  FACTOR  FOR  CY512  t*t 

1320  SS  =  SPEED  »  26.667 

1330  IF  SS  <  43.5  THEN  SS  =  43.5 

1340  IF  SS  >  3000  THEN  SS  =  3000 

1350  RATE  =  CINT(257.938  -  ( 12500 f  /  SS) ) 

1360  IF  RATE  <  1  THEN  RATE  =  1 
1370  IF  RATE  >  253  THEN  RATE  =  253 

1380  FACTOR  =  CINT  ((8  *  RATE)  +  (100000!  /  SS)  -  2055.5) 

1390  IF  FACTOR  <  1  THEN  RATE  =  RATE  +  1:G0T0  1380 
1400  REM  tt*t**ttttttttt***tt**t*tttt*t**tt*ttt*** 

1410  REM  *  CHECK  TO  SEE  IF  R,  AND  F  ARE  BEST 

1420  REM  ttt**$t*t*tt*t****tt*t**tt*tt**tt*tttttt*t 

1430  FMIN  =  FACTOR  -  1:F  =  FACTOR :FPLUS  =  FACTOR  +  1 

1440  FEXP=FMIN: GOSUB  1530 

1450  ERRMIN  *  SSERR 

1460  FEXP=FPLUS: GOSUB  1530 

1470  ERRPLUS  =  SSERR 

1480  FEXP  =  F: GOSUB  1530 

1490  IF  ERRMIN  >=  SSERR  AND  ERRPLUS  >=  SSERR  THEN  GOTO  1580 
1500  IF  ERRMIN  <  SSERR  THEN  FACTOR  =  FACTOR  -  1:G0T0  1420 
1510  IF  ERRPLUS  <  SSERR  THEN  FACTOR  =  FACTOR  +  1 : GOTO  1420 
1520  PRINT: PRINT  "ERROR  IN  R  AND  F  CHECK  ROUTINE" : END 
1530  REM  *****  CALCULATE  SS  FROM  R  AND  F  VALUES  ***** 

1540  DENDM=  (((256  -  RATE)  *  80)  +  (FEXP  *  10)  +  75)  *  .000001 
1550  SSEXP=  1/DENOM 
1560  SEERR=ABS(SS-SSEXP) 

1570  RETURN 


iseo  REM  »*  CALCULATE  SLOPE  t* 

15B5  IF  SPEED  <  12  THEN  SLOPE  =  255  :  GOTO  1630 
1590  SLOPE  =  1 

1600  YY  =  2  ♦  (  INT((  255  -  FACTOR  )  /  SLOPE  )> 

1610  IF  SLOPE  >  254  THEN  GOTO  1630 

1620  IF  YY  >  STEPS  THEN  SLOPE  =  SLOPE  +  1  :  GOTO  1600 

1630  RATE*=STRi <RATE) : SLOPE»=STR* (SLOPE) : FACTOR>=STR^ (FACTOR) : STEPS»=STR» (STEPS 
1640  CY»="R" +R ATE*+ " , S " +SLOPE*+ " , F " +F ACT0R4+ " , N " +STEPS*+ " , “ +D I RECT ION* 

1650  RETURN 
1660  REM 

1670  REM  tt*tt*tttt*****ttttt*tt*tt**t 

1680  REM  «  LINE  OUT  OF  ORDER  ERROR 
1690  REM  *tt**«********t*ttttt*tt**t*t 

1700  REM 

1705  PRINT  CHR*(7) 

1710  PRINT: PRINT  "PARAMETERS  OUT  OF  ORDER  IN  LINE#  “;NLINE 
1720  PR  I  NT  .-END 

1730  REM  t*t*t*t*tttttt*tt***tttt*t*t*t*t 

1740  REM  «  NUMERICAL  VALUE  ERROR 

1750  REM  ****ttttt*t*t$*ttttttt*tttt*t*** 

1760  REM 

1765  PRINT  CHR*(7) 

1770  PRINT: PRINT  "NUMERICAL  VALUE  ERROR  IN  LINE#  ";NLINE 
1780  PRINT  "TOO  MANY  DIGITS  OR  DECIMAL  POINT  MISPLACED" 

1790  PRINT: END 

1800  REM  tttt**ttttt*t**ttt*tt***ttt** 

1810  REM  t  PARAMETER  MISSING  ERROR 
1820  REM  tt**t*tt**t****t*ttttt*ttt*t* 

1830  REM 

1835  PRINT  CHR*(7) 

1840  PRINT: PRINT  "N,F,  OR  ♦  PARAMETER  MISSING  IN  LINE#  "jNLINE 
1850  PR I NT; END 

1860  REM  ttt*****ttt*t***ttttt*****tt*ttt 

1870  REM  *  AXIS  SPEED  <  1.65  ERROR 

1880  REM 

1890  REM 

1895  AXIS»="  " 

1900  IF  XSPEED  <  1.65  AND  XSPEED  >  O  THEN  AX IS*=" X-AX IS" 

1910  IF  YSPEED  <  1.65  AND  YSPEED  >  O  THEN  AXIS»=AXIS*+", Y-AXIS" 

1920  IF  ZSPEED  <  1.65  AND  ZSPEED  >  O  THEN  AXIS»=AXIS*+", Z-AXIS" 

1930  PRINT  CHR*(7) 

1940  PR I NT: PR I NT  "FEED  RATE  TOO  SLOW  IN  LINE#  ";NLINE 
1950  PRINT  "INTERPOLATION  CAUSES  ";AXIS*;"  TO  BE  TOO  SLOW" 

1960  PRINT  "(  ";AXIS*;"  SPEED  WILL  BE  ROUNDED  UP  )" 

1970  PR  I  NT  .-PRINT  "PUSH  <  RETURN?  TO  CONTINUE  OR  <  ESCAPE  >  TO  ABORT" 

1980  Q*=INKEY*;IF  LEN(Q»)  =  O  THEN  GOTO  1980 
1990  IF  0»=CHR«(27)  THEN  PR I NT: END 

2000  IF  Q»  <>  CHR*(13)  THEN  PRINT  CHR*(7):GDTD  1970 

2010  PRINT;  PRINT  " - ":  RETURN 

2020  REM 

2030  REM  tttt*t*t*t*tt*tt**t*t*t**tttt**t* 

2040  REM  *  AXIS  SPEED  >112  ERROR 
2050  REM  tt*t**t*ttt*t*t*t*t**tt**t**tt*** 

2060  REM 

2070  IF  XSPEED  >  112  AND  ZSPEED  >  112  THEN  AXIS*=  "X  AND  Z-AXIS": 

2080  IF  XSPEED  >  112  THEN  AXIS»=  "X-AXIS" 


GOTO  2110 
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2090  IF  ZSPEED  >  112  THEN  AXIS*=  “Z-AXIS" 

2100  PRINT  CHR*(7) 

2110  PRINT: PRINT  "FEED  RATE  TOO  FAST  IN  LINE#  ";NLINE 
2120  PRINT  "INTERPOLATION  CAUSES  ";AXIS»;"  TO  BE  TOO  FAST" 

2130  PRINT  “(  ";AXIS*;"  SPEED  WILL  BE  ROUNDED  DOWN  ) " 

2140  PRINT: PRINT  "PUSH  < RETURN >  TO  CONTINUE  OR  < ESCAPE >  TO  ABORT" 

2150  Q*=INKEY*:IF  LEN(Q*>=0  THEN  GOTO  2150 
2160  IF  Q*=CHR»(27)  THEN  PRINT:END 

2170  IF  Q*  <>  CHR«<13)  THEN  PRINT  CHRt{7):G0T0  2140 

2  ISO  PR  I  NT:  PR  I  NT  " - ":  RETURN 

2181  REM 

2182  REM  tt*t*tt*ttt*tttt*tttt****tt*tt*t 

2183  REM  *  ROUTINE  TO  HANDLE  *  NO  FILE’  ERRORS 

2184  REM  t*t**t*tttt*tttt**tttttt*ttt***t 

2185  REM 

2186  IF  ERR  =  53  OR  ERR  =  64  THEN  PRINT: PRINT  "ERROR:  FILE  NOT  FOUND  DR  BAD  FIL 
NAME! ": PRINT: INPUT  "PUSH  <RETURN>  TO  CONTINUE" , XXX» 

:GOTO  2310 

2187  ON  ERROR  GOTO  O 

2189  REM 

2190  REM 

2200  REM  t***tttttt*ttt*tt*tttt*t*t**t 

2210  REM  »  END  OF  OPERATION 
2220  REM 
2230  REM 

2240  FOR  LINES  =  1  TO  (I-l) 

2250  PRINT  #2,CYM0VE*<LINES) 

2260  NEXT  LINES 
2270  PRINT  #2, "**»**" 

2280  CLOSE 

2290  PRINT  CHR*<7) : REM: PRINT  CHR* <7) : REM: PRINT  CHR*(7) 

2300  PR I NT: PR I NT: PR I NT  RS274* CY512*; "  TRANSLATION  COMPLETED" 

10  PRINT: CHAIN  MENU* 

20  END 


10  REM  ttt***t*tt*tt****tttt*t*tttt*tt*tt*ttt***t*****t$*ttt 

20  REM  * 

30  REM  «  CYEXEC.BAS  BY  JUSTIN  D.  REDD  -  BYU  CAM  LAB  - 

40  REM  »  DECEMBER,  19B3 

50  REM  * 

60  REM  «  THIS  PROGRAM  READS  IN  A  FILE  WITH  THE  FILENAME  EXTENTION 

70  REM  »  .CYC  THAT  HAS  BEEN  CREATED  BY  THE  INTERP.BAS  PROGRAM 

80  REM  *  FROM  AN  RS274  TEXT  FILE.  IT  THEN  EXECUTES  THE  CY512 

90  REM  *  COMMANDS  CONTAINED  IN  THE  FILE  AND  TERMINATES. 

100  REM* 

110  REM* »**««*» *»«««»******««»*««»«««««**»«**«*«***« *«««»»»«» 

120  REM 

130  REM  t********************************* 

140  REM  *  CHECK  FOR  CYDRIVER.HEX  IN  MEMORY 

150  REM  t********************************* 

160  REM 

170  PRINT: INVERSE: PR I NT  "CHECKING  FOR  CYDRIVER. HEX" ;: NORMAL: PRINT 
180  MEBS*="" 

190  FDR  CHAR  =  O  TO  6 

200  LOCATION  =  &HC4F1  +  CHAR 

210  CHAR»=CHR* (PEEK (LOCATION) ) 

220  MESS»=MESS*  +  CHAR*:CHAR*= 

230  NEXT  CHAR 

240  IF  LEFT* (MESS*, 5)  <>  "VALID"  THEN  GOTO  270 
250  X*=MID*(MESS*,6, 1) 

260  IF  X*="l"  THEN  GOTO  360 

270  PRINT: INVERSE: PRINT  "LOADING  CYDRIVER. HEX  AT  C400H" ;: NORMAL: PRINT 
280  PRGM*= "CYEXEC . BAS " : SL I NE=330 : HF ILE*="CYDR I VER . HEX " 

290  CALLER*="XXXX":CLINE=999 

300  CHAIN  "BLOAD.BAS", 10, ALL 

310  CLEAR, &HC400 

320  DEF  USR1=&HC409 

330  DEF  USR2=5£HC416 

340  DEF  USR3=8<HC423 

350  REM 

360  REM  «***««**«***«**********««****»***« 

370  REM  *  READ  IN  CY512  FILE 

380  REM  t********************************* 

390  REM 

400  HOME  :  PRINT  "CY512  FILE  EXECUTER  -  BYU  CAM  LAB  - 

410  PRINT:PRINT  " - 

- ":PRINT:PRINT:PRINT 

420  INPUT  "EXECUTE  WHAT  CY512  COMMAND  FILE  ";CYFILE* 

430  TEST*=RIGHT*  (CYFILE*,4) 

440  IF  LEFT*  (TEBT*,1)  =  "."  THEN  GOTO  465 
450  CYFILE*  =  CYFILE*  +  ".CYC" 

460  ON  ER::0R  goto  1070 

465  IF  MID* (CYFILE*, 2, 1)  =  THEN  LLL  =  14  ELSE  LLL  =  12 

470  IF  LEN  (CYFILE*)  >  LLL  THEN  PRINT:PRINT  "FILENAME  TOO  LONG !": PRINT: GOTO  420 
480  IF  RIGHT* (CYFILE*, 4)  =  ".CYC"  THEN  GOTO  530 

490  PRINT:PRINT  "THIS  FILE  DOES  NOT  HAVE  THE  FILENAME  EXTENTION  ’.CYC’.  IT  WIL 
L  RUN  ONLY  IF  THE  FILE  IS  AN  INTERPRETED  TEXT  FILE  O 
F  CY512  COMMANDS." 

500  FRINT:PRINT  "DO  YOU  STILL  WANT  TO  TRY  TO  EXECUTE  THIS  FILE  ?  (Y/N)"; 

510  ANSWER*=INKEY*: IF  LEN(ANSWER*)  =  O  THEN  GOTO  510 
520  IF  ANSWER*  <>  "Y"  THEN  GOTO  1040 


530  0PEN"I",#1,CYFILE* 

540  ON  ERROR  GOTO  O 

550  PRINT: INVERSE: PRINT  "READING  IN  CYF I LE*; : NORMAL: PRINT 

560  NLINE=0 

570  NLINE  =  NLINE  +  1 

5B0  INPUT  #1, CLINE* 

590  IF  CLINE*  =  ••*****"  THEN  LINES  =  NLINE  -  1  :  GOTO  610 

600  GOTO  570 

610  DIM  CY*(NLINE,3) 

620  DIM  CLINE* (NLINE) 

630  CLOSE 

640  0PEN"I",#1,CYFILE* 

650  FOR  I  =  1  TO  LINES 
660  INPUT  #1,CLINE*(I) 

670  NEXT  I 
680  CLOSE 
690  REM 

700  REM  t*****t*tt***t***t*t***t*ttt*t**t 

710  REM  *  SEPARATE  X,Y,  AND  Z  AXIS 

720  REM  ttttt*t*t***t**t*ttt1(****ttt*t*t* 

730  REM 

740  PRINT:  INVERSE:  PRINT  "SEPARATING  X,Y,  AND  Z  AXIS  COMMANDS  -  LINE#" ;:  NORMAL:  P"^ 
INT 

750  FOR  I  =  1  TO  LINES 

760  XX=(LINES-I)  +  l 

770  C0L0N1=INSTR(CLINE*(I) , 

780  C0L0N2= I NSTR ( ( COLON 1 + 1 ) , CL I NE* ( I ) , " : " ) 

790  CY*(I, 1)=LEFT*(CLINE*<I) jCOLONl  -  2) 

800  CY*(I,2)=MID*(CLINE*(I) , (COLONl+2) , ( (C0L0N2-1 ) - (COLONl+2) ) ) 

810  CY3LEN=LEN(CLINE*<I) )  -  (C0L0N2  +  1) 

820  CY*(I,3)=RIGHT*(CLINE*(I) ,CY3LEN) 

830  VTAB  (11)  :HTAB  (44) : INVERSE:PRINT  XX; 

840  CLINE* (I)  =  "" 

850  NEXT  I 

860  VTAB  (11)  :  HTAB  (44)  :  INVERSE  :  PRINT  "  O  "  :  PRINT 

870  PRINT  "CLEARING  MEMORY" 

880  REM 
890  REM 

900  REM  t  EXECUTE  MOVES 

910  REM  *******t*t**t*tt***t*t**tt**t***t 

920  REM 
930  NORMAL 

940  PRINT  CHR*(7)  :  PRINT  " Kttttt********  READY  ttt*t**tt*t****t"  :PRINT  CHR*(7 
950  FOR  I  =  1  TO  LINES 

960  IF  FRE(O)  <  lOO  THEN  PRINT  "CLEARING  MEMORY  -  PLEASE  WAIT": PRINT  FRE ( " " > 

970  Q*=USR1 (CY*  ( I, 1 ) ) 

980  0*=USR2(CY*(I,2) ) 

990  Qt=USR3(CY*(I,3) ) 

1000  Q*=USR1 ("G" ) :Q*=USR2("G") : Q*=USR3 ( "G" ) 

1C  10  NEXT  I 

1020  PRINT: PRINT  "EXECUTION  COMPLETE" 

1030  CLEAR, &HC400 
1040  CHAIN  "MENU. BAS", 360 
1050  END 
1060  REM 

1070  REM  **t*tt****t**tt*tt***tt**ttt***t** 


■1 
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1080  REM  *  ROUTINE  TO  HANDLE  ’NO  FILE’  ERRORS 
1090  REM 
1100  REM 

1110  IF  ERR  =  53  OR  ERR  *  64  THEN  PRINTs  PRINT  ’‘ERROR; 
E  NAME! PRINT; INPUT  "PUSH  < RETURN >  TO  CONTINUE" , XXX 
*;GOTO  1040 
1120  ON  ERROR  GOTO  0 


FILE  NOT  FOUND  OR  BAD  FIL  « 


•j 


10  REM  tttt*tt**ttt**ttt**t*$t***tttt***t**ttt*ttttt*t**** 

20  REM  * 

30  REM  *  MZERO.BAS  BY  JUSTIN  D.  REDD 

40  REM  «  -  BYU  CAM  LAB  - 

50  REM  t 

60  REM  *  THIS  PROGRAM  WILL  SEND  ALL  THREE  AXIS'  (X,Y,  AND  Z) 

70  REM  *  OF  THE  MIN I -MILLING  MACHINE  TOWARD  THEIR  HOME 
BO  REM  *  POSITIONS.  IT  THEN  BEGINS  CHECKING  THE  AXIS  LIMIT 
90  REM  t  SWITCHES,  STOPPING  EACH  AXIS  WHEN  IT  IS  IN  IT’S 
100  REM  *  HOME  POSITION.  THIS  PROGRAM  IS  USUALLY  RUN  BEFORE 
110  REM  «  RUNNING  A  SEQUENCE  OF  MOVES  ON  THE  MILL  SINCE  IT 
120  REM  t  PROVIDES  A  CONSISTENT  AND  ACCURATE  STARTING  LOCATION. 
130  REM  » 

140  REM 
150  REM  * 

160  COMMON  MENU* 

170  REM 

IBO  PRINT: PRINT 

190  PRINT  ■■=====>  INVERSE:  PRINT  "ZEROING  MILL"  ;:  NORMAL:  PRINT"  < 

200  PRINT 

210  STAT1=&HEOFO  :  STAT2=8<HE0F1  :  STAT3=&HE0F2 
220  CY1*="I,R  250, S  1,F  1,N  20000, -,G" 

230  GOSUB  350:GOSUB  270:G0SUB  310 

240  HOME 

250  CHAIN  MENU* 

260  END 

270  CALL  CYKCYl*) 

2B0  X*=RIGHT*( (HEX* (PEEK (STATl ) ) ) , 1) 

290  IF  ASC(X*)  >  55  THEN  POKE  STATl ,  8<H44:  POKE  STATl,  8<H40  :  RETURN 

300  GOTO  280 

310  CALL  CY2(CY1*) 

320  Y*=RIGHT* ( (HEX* (PEEK (STAT2) ) )  ,  1 ) 

330  IF  ASC(Y*)  >  55  THEN  POKE  STAT2, 8<H44:  POKE  STAT2,8cH40  :  RETURN 

340  GOTO  320 

350  CALL  CY3(CY1*) 

360  Z*=RIGHT*( (HEX* (PEEK (STAT3) ) ) , 1) 

370  IF  ASC(Z*)  >  55  THEN  POKE  STAT3,  *cH44 ;  POKE  STAT3,&H40  :  RETURN 
380  GOTO  360 


10  REM 
20  REM  * 

30  REM  »  LZERO.BAS  BY  JUSTIN  D.  REDD 

40  REM  t  -  BYU  CAM  LAB  - 

50  REM  * 

60  REM  *  THIS  PROGRAM  SENDS  BOTH  AXIS’  OF  THE  LATHE  (X  AND  Z) 

70  REM  t  BACK  TOWARDS  THEIR  HOME  POSITIONS.  IT  THEN  BEGINS 
60  REM  »  CHECKING  THE  LIMIT  SWITCHES  ON  EACH  AXIS  AND  STOPS 
90  REM  »  THE  MOTORS  WHEN  THE  LATHE  IS  IN  HOME  POSITION.  THIS 
100  REM*  PROGRAM  IS  USUALLY  RUN  BEFORE  A  CUTTING  ROUTINE  TO 
110  REM*  MAKE  SURE  THE  LATHE  STARTS  FROM  THE  SAME  POST I ON  EACH 
120  REM*  TIME. 

130  REM* 

140  REM* »«*««*«»*****»*«««»»**«« *«««««»««*t«***«*«««»»**«»*X»»»«« 

150  REM  * 

160  PRINT:PRINT 

170  PRINT  "=====>  INVERSE: PR I NT" ZEROING  LATHE"; : NORMAL: PR I NT"  <=====" 

ISO  PRINT: PRINT 

190  STATl=8cHE0F0  :  STAT2=8<HE0F2 

200  CYlt="I,R  250, S  1,F  1,N  10000, +,G"  :  CY2*="I,R  250, S  1,F  1,N  20000, -,G'* 
210  0»=USR1 (CYl*) 

220  X»=RIGHT*( (HEX* (PEEK (STATl ) ) ) , 1) 

230  IF  ASC(X*)  >  55  THEN  POKE  STATl ,  &H44:  POKE  STAT 1 ,  StH40:  GOTO  250 

240  GOTO  220 

250  C*=USR3(CY2t) 

260  Z*=RIGHT*( (HEX* (PEEK (STAT2) ) ) , 1) 

270  IF  ASC(Z*)  >  55  THEN  POKE  STAT2, 8<H44:  POKE  STAT2,  &H40:  GOTO  290 
260  GOTO  260 

290  CY1*="R  100, S  1,F  1,N  50, +, G" : CY2*="R  100, S  1,F  1,N  50, -,G" 

300  Q*=USR1 (CYl*) :Q*=USR3(CY2*) 

310  HOME 

320  CHAIN  "MENU" 

330  END 


APPENDIX  K 
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UNCLASSIFIED 


F/G  12/8 


NL 


:list 


5  REM 

6  REM  « 

7  REM  *  MANUAL  PUNCH 

8  REM  *  BY 

9  REM  «  JUSTIN  D.  REDD 

10  REM  » 

11  REM  *  THIS  APPLESOFT  PROGRAM  WILL 

12  REM  *  RUN  THE  MINI  TURRET  PUNCH 

13  REM  *  THROUGH  STEP  BY  STEP  CONTROL. 

1 4  REM  t 

15  REM  tttttttttttttttttttttttttttttt* 

16  REM  * 

35  CP  =  1 

40  D*  =  CHR*  (4):  REM  CNTL-D 
50  PRINT  D*;"BRUN  CY  DRIVER. OBJ, A*4000" 

60  CALL  16384 

70  PRINT  CHR»  (1);"1R  252, S  1,F  1,N  O,-" 

75  0  =  USR  (1) 

80  PRINT  CHR*  (1);"2R  252, S  1,F  1,N  O,-** 

85  D  =  USR  (2) 

90  PRINT  CHR*  <1>;"3R  250, S  1,F  1,N  0,-«-,A" 
95  Q  =  USR  (3) 

100  PRINT  CHR*  (1)"4R  250, S  1,F  1,N  O,-” 

105  Q  =  USR  (4) 

106  PRINT  CHR*  (1);"4N  1200,-, 6" 

107  O  =  USR  (4) 

110  PD  =  1200:  REM  tt  PUNCH  DIST. 

120  REM  **  CP=CURRENT  PUNCH,  DR*=DIRECTION 
130  PI  =  O:  REM  »*  POSITION  OF  PUNCH  1 


140 

P2 

=  251: 

REM 

«« 

POSITION 

OF 

PUNCH 

2 

150 

P3 

=  501: 

REM 

«« 

POSITION 

OF 

PUNCH 

3 

160 

P4 

=  751: 

REM 

«» 

POSITION 

OF 

PUNCH 

4 

200  REM  **»  MAIN  MENU  ttt 
205  HOME  :  PRINT 

210  PRINT  "tt**t*tt******ttt***tt*ttt*t*t*tt*t*tt*‘’:  PRINT  "**» 

***••;  PRINT  •’»»»  MANUAL  PUNCH  MAIN  MENU 

*»«":  PRINT  ••***  »*«*' 

220  PRINT 


230 

VTAB 

(10) : 

HTAB 

(5)  : 

PRINT 

"1) 

PUNCH  HOLE" 

240 

VTAB 

(12)  : 

HTAB 

(5) : 

PRINT 

"2) 

CHANGE  PUNCH  SIZES 

250 

VTAB 

(14)  : 

HTAB 

(5) : 

PRINT 

“3) 

MOVE  X-AXIS" 

260 

VTAB 

(16)  : 

HTAB 

(5)  : 

PRINT 

"4) 

MOVE  Y-AXIS" 

270 

VTAB 

(18)  : 

HTAB 

(5) : 

PRINT 

"5) 

QUIT" 

280  VTAB  (21):  HTAB  (10):  PRINT  "WHICH?  " 

285  VTAB  (24):  PRINT  "<''D>=DOWN  <-^U>=UP  <'^L>=LEFT  <'^R>=RIGHT 

290  GET  A*:  PRINT  A*:  PRINT 

295  IF  A*  =  "1"  THEN  GOTO  1000 

300  IF  A«  =  "2"  THEN  GOTO  2000 

310  IF  A*  =  "3"  THEN  GOTO  3000 

320  IF  A«  =  "4"  THEN  GOTO  4000 

331  IF  A*  =  CHR*  (4)  THEN  GOTO  5000 

332  IF  A*  »  CHR*  (21)  THEN  GOTO  5500 

333  IF  A*  =  CHR*  (12)  THEN  GOTO  6000 

334  IF  A*  =  CHR*  (18)  THEN  GOTO  6500 


335  IF  AS  <  >  "S"  THEN  GOTO  200 

340  PRINT  CHRS  (1);”3N  250'' 

345  Q  =  USR  (3) 

350  PRINT  CHRS  <1);"3P  O" 

355  Q  =  USR  (3) 

356  PRINT  CHRS  (1);"3N  250" 

357  Q  =  USR  (3) 

360  PRINT  CHRS  (1);’'4N  1200, +,G" 

365  Q  =  USR  (4) 

370  HOME  :  END 

1000  REM  «*  SUB  TO  PUNCH  «* 

1010  HOME  I  VTAB  (11):  HTAB  (16):  FLASH  :  PRINT  **>>>  PUNCHING  <<<":  NORMAL 


1020  PRINT  CHRS  (1);"4N  “ ; PD; " G" 

1030  Q  =  USR  (4) 

1040  PRINT  CHRS  (1);"4-,G" 

1050  Q  =  USR  (4) 

1060  GOTO  200 

2000  REM  ««  SUB  TO  ROTATE  TURRET  »» 

2010  HOME 

2020  PRINT  :  PRINT  "  ROTATE  TURRET” 

2030  PRINT  :  PRINT  "ttttttttttttttttttttttttttttttttttttttt" 

2032  IF  CP  =  O  THEN  GOTO  2040 
2034  VT  =  6  +  (2  »  CP) 

2036  VTAB  (VT) :  FLASH  :  PRINT  "==>«:  NORMAL 

2040  VTAB  (8):  HTAB  (5):  PRINT  "D  SMALL  PUNCH  (?  IN.  >  “ 

2050  VTAB  (10):  HTAB  (5):  PRINT  ”2)  MEDIUM/SMALL  PUNCH  (?  IN.)" 

2060  VTAB  (12):  HTAB  (5):  PRINT  ”3)  MEDIUM/LARGE  PUNCH  (?  IN.)" 

2070  VTAB  (14):  HTAB  (5):  PRINT  ”4)  LARGE  PUNCH  (?  IN.)" 

20B0  VTAB  (16):  HTAB  (5):  PRINT  "5)  RETURN  TO  MAIN  MENU  ” 

2090  VTAB  (19):  HTAB  (10):  PRINT  "WHICH?" 

2100  GET  TS 


2110 

IF 

TS 

s 

<1  ^  M 

THEN 

P 

= 

PI: 

GOTO 

2200 

2120 

IF 

TS 

= 

••  2  ** 

THEN 

P 

= 

P2: 

GOTO 

2200 

2130 

IF 

TS 

= 

1.311 

THEN 

P 

= 

P3: 

GOTO 

2200 

2140 

IF 

TS 

= 

THEN 

P 

= 

P4: 

GOTO 

2200 

2150 

IF 

TS 

THEN 

GOTO  200 

2200  PRINT  CHRS  (1);"3P  ";P 
2210  Q  =  USR  (3) 

2220  CP  *  VAL  (TS) 

2230  GOTO  2000 

3000  REM  *»  SUB  TO  MOVE  X-AXIS  »» 

3005  HOME 

3010  PRINT  :  PRINT  "  MOVE  X-AXIS" 

3020  PRINT  :  PRINT  :  PRINT 

3025  GOTO  3300 

3030  VTAB  (8):  HTAB  (5):  PRINT  "1)  +  DIRECTION" 

3040  VTAB  (10):  HTAB  (5):  PRINT  "2)  -  DIRECTION" 

3050  VTAB  (12):  HTAB  (5);  PRINT  "3)  RETURN  TO  MAIN  MENU" 

3060  VTAB  (15):  HTAB  (10):  PRINT  "WHICH?  " 

3070  GET  XS 

3080  IF  XS  =  "1"  THEN  VTAB  (8):  FLASH  :  PRINT  "=*>":  NORMAL  :DRS  =  GOTO 

3200 

3090  IF  XS  =  "2"  THEN  VTAB  (10):  FLASH  :  PRINT  "==>":  NORMAL  :DRS  * 

GOTO  3.  '  O 

3100  IF  XS  =  "3"  THEN  GOTO  200 


4 


:• 


1 


■1 


1 


ij 


t 


3110  GOTO  3000 

3200  VTAB  (20):  INPUT  •'DISTANCE  ?  (IN.)  -;ND* 

3210  IF  ASC  (ND*)  >  58  THEM  GOTO  3200 
3220  N  =  VAL  (ND*)  »  1600 
3230  RETURN 
3300  GOSUB  3030 

3310  PRINT  CHR*  (1);"1N  “;N; ", “;DR*; ",G" 

3320  Q  =  USR  (1) 

3330  PRINT  CHR*  (1);"1N0" 

3340  Q  =  USR  (1) 

3350  GOTO  3000 

4000  REM  tt  SUB  TO  MOVE  Y-AXIS  *» 

4010  HOME 

4020  PRINT  :  PRINT  "  MOVE  Y-AXIS" 

4030  PRINT  :  PRINT  x  PRINT 

4040  GOSUB  3030 

4050  PRINT  CHR*  (1);"2N  " ; N; " , " ; DR*; " , G" 

4060  Q  =  USR  (2) 

4070  PRINT  CHR*  (1);"2N  O" 

4080  0  =  USR  (2) 

4090  GOTO  4000 

5000  REM  ttt  MOVE  PUNCH  DOWN  »** 

5010  PRINT  CHR*  (1);"4+" 

5020  Q  =  USR  (4) 

5030  PRINT  CHR*  (1);"4+,N  100, G" 

5040  O  =  USR  (4) 

5050  GOTO  200 

5500  REM  ttt  MOVE  PUNCH  UP  *»» 

5510  PRINT  CHR*  (1);"4-" 

5520  Q  =  USR  (4> 

5530  PRINT  CHR*  (1);"4-,N  100, G" 

5540  O  =  USR  (4) 

5550  GOTO  200 

6000  REM  ttt  TURRET  LEFT  1  STEP  »»» 

6010  PRINT  CHR*  (1);"3N  1" 

6020  Q  =  USR  (3) 

6030  PRINT  CHR*  (1);"3N  1,-,G" 

6040  Q  =  USR  (3) 

6050  GOTO  200 

6500  REM  ***  TURRET  RIGHT  1  STEP  *** 

6510  PRINT  CHR*  (1);"3N  1" 

6520  Q  =  USR  (3) 

6530  PRINT  CHR*  (1);"3N  1,+,G" 

6540  Q  =  USR  (3) 

6550  GOTO  200 


APPENDIX  L 


Programs  for  the  Miniature  Storage  and  Retrieval  System 


10  »*#»»»*♦♦»»»»»» 

12  REtl»t»*  !««« 

13  RE«*»»»  STACKER. BAS  BY  DAVE  JESPERSON  -  BYU  CAM  LAB  »*»» 

14  KEM1>»»»  This  proaram  comiunicates  with  the  apple  computer  throuah  *♦** 

15  REM**^<!  the  serial  interface.  The  apple  prosram  that  accepts  the  tttt 


16  REM»»»*  data  from  the  IBM  PC  is  called  STACKER. BAS  alsof  and  is  t*t* 

17  REM»*»*  run  from  Microsoft  Basic.  tUtt 

20  REM*»*«  t%tt 

30  REM»*»»  VARIABLE  DEFINITIONS  t*»* 

40  REM**i» 

50  REM***»  CMD$  =  introduction  comsiand  chosen  tttt 

60  ftEM**T*  MCMDi  =  mein  menu  option  chosen  tttt 

70  REM**f«  TCMDi  =  transport  menu  option  chosen  tttt 

80  REMtiO*  CLEARLINEI  =  holds  39  blank  spaces*  used  to  clear  a  line  tttt 

90  REMtffC  X  S  Y  =  holds  screen  coordinates  tttt 

100  REN***  IrJ  =  loop  variables  tttt 

110  REM**»  BINNO  =  user  entered  bin  number  tttt 

120  REM***  TRAYNO  =  user  entered  delivery  tray  number  **** 

130  REM***  FLAG  =  mark/unmark  bin  **** 

140  REM***  FLAG  =  15  mark  bin  *** 

150  REM***  FLAG  =  05  unmark  bin  **** 

160  REM***  BIN(18)  =  array  of  bin  numbers  **** 

170  REM*»*  R0W(18)  =  array  of  cursor  row  locations  **»* 

180  REM***  C0L(18)  =  array  of  cursor  column  locations  **** 

190  REM***  STATUS<2)  =  array  to  track  status  of  delivery  trays  **♦* 

200  REM***  MISTAKE  =  pointer  into  error  array  **** 

210  REM***  ERRURMESG*  =  array  of  error  messages  **** 

220  REM***  BlNN0i(19)  *  array  of  alphabetical  bin  numbers  **** 

230  REM***  TRAYNOi  *  character  input  variable  for  tray  number  »*** 

232  REM***  JUNK*  *  accept  any  charater  from  key  board  *»»♦ 

234  REM***  SfOPIT  =  used  to  stop  program  when  error  exists  **** 

235  REM***  VSKIP*  «  stores  line  coordinates  for  DRAW  command  **** 

236  REM***  HSKIP*  =  same  as  VSKIP*  **** 

237  REM***  TAG  =  used  in  RETURN  BIN  to  hold  tray  number  **** 

240  REM***  tttt 


250  REntttttttttttttttttttttttttttttttttttttttttttttU^ttttttttttttttttttt 
260  REM 

270  REM********************************|;****»»* 

280  REM**** 

290  REM****  DISPLAY  SWITCH 

300  REM**** 

310  REM**************************************** 

320  REM 

330  DEF  SEG  =  05  POKE  JH410.  <PEEK(»H410)  AND  IHCF)  OR  *H10 
340  SCREEN  IfOfOfO  5  SCREEN  05  WIDTH  40 
350  REM 

3c 0  REM*************************************** 

3~0  PEM**** 

3E0  REM**»*  SYSTEM  INITIALIZATION 

4''0  REM**>* 

410  REM*************************************** 

420  REN 

430  DIM  BINN0»(19)»  BIN(19),  R0W(19)f  C0L(19),  STATUS(2)»  ERRORMESG* ( 12) 
440  CLEARLINE*  *  SPACt»(39) 

442  BINN0*( 1)=’11'5BIN(1)=115R0W(1)=125C0L<1)=4 
444  BINNUl(2)=*12*5eiN(2)=12:R0W(2)=95C0L(2)=4 
446  BINN0t(3)='13' ;BIN<3)=135ROM<3)=45COL(3)=4 

443  BINN0*(4>  =  ’21' 5£!lN(4)=215ROW(4)  =  l2  5COL(4)  =  10 
450  BINN0l<5)  =  *22*  5BIM(5)=22;ROW(5)=8;COL(5>  =  10 


460  FINN0$(10)='41' ;BIN(10)=41:ROW(10)=12:COL(10)=22 
462  BINNU*(11)='42' :BIN<11)=42;H!0W<11)=3:C0L(11)=22 
464  BIHN0»(12)=*43' ;BIM<12)=4i:R0M(12)=4:C0L(12)=22 
466  BINN0»(13)=*51* ;f'IN(13)=5i:R0W(13)=12tC0L<13)=28 
46B  BINN0$a4)=*52*:BIN(14)=52:R0W<14)=8:C0L(14)=28 
470  BINN0i<15>=‘53';»IN(15)=53;Rl)W(15)=4:C0L(15)=28 
472  BINN0*(16)  =  '61*:BIN(16)=61:R0U(16)  =  12:C0L(.U)=34 
474  BINN0$(17)=‘62*:BIN(17)=62:R0W(17)=8:C0L(17)=34 
476  BlNM0i(18)='63*:BIN(18)=63:R0W(18)=4:C0L(18)=34 
480  tRRURME3G$(l)  =  •INVALIH  INPUT' 

485  ERR0RMESGi(2)  =  'RANGE  ERROR' 

490  ERK0RrtESG*(3)  =  'ALL  BINS  RETURNED' 

495  ERR0RMESG$(4)  =  'BIN(S)  STILL  OUT' 

500  ERR0RMESG$<5)  =  'DELIVERY  TRAYS  FULL' 

505  ERR0RhE5Gt(6)  =  'TRAY  1  OCCUPIED' 

510  ERR0RMESG$(7)  =  'TRAY  2  OCCUPIED' 

515  ERRORMESG$(S)  =  'BIN  DELIVERED' 

520  ERRURNESGX9)  =  'BIN  RETURNED* 

525  ERRORMESGtdO)  =  'BIN  DOES  NOT  EXIST* 

530  ERRliRMESU»<11)  =  'NO  SUCH  TRAY* 

535  ERR0FMESG»(12)  =  '  * 

550  STATUS(l)  =  Ot  STATUS(2)  =  0 

552  CLS:COLOR  23?  PRINT  'INITIALIZING  MULTIPLEXER  -  PLEASE  WAIT*  I  COLOR  7 

555  OPEN  *CUMi:  4800fN>7»2»C31000»DS1000'  AS  *1 

556  MUXMESG1«=CHR»(2)+*1' ;MUXMESG2»=CHK>(1)+*1' 

557  PRINT  ♦1*MUXMESG1>5  :X=11:G0SUB  565  t  PRINT  ♦lf'2*f  :X=8tG0SUB  565 

558  PRINT  ♦lf*5'}  :X=ll  IGOSUB  565  t  PRINT  tl,*!'}  :  PRINT  *1 »MUXMESG24 » 
560  GOTO  570 

565  FOR  I  =  I  TO  X 

566  INPUT  tlfA* 

567  NEXT  I 

568  RETURN 

569  REM 

570 

580  REM**** 

5''0  REM****  INTRODUCTION  SCREEN 
600  REM**** 

610  REM**************************************** 

620  REM 

630  KEY  off;  SCREEN  Oii;  COLOR  15*0»0;  WIDTH  40’,  CLS 
6'iO  LOCATE  3fl2;  PRINT  'Computer  -  Aided' 

650  LOCATE  5»8:  PRINT  'Msnuf eclurind  Lehoratorv' 

6c0  LOCATE  8f8;  COLUR  91  PRINT  'BRIGHAM  YOUNG  UNIVERSITY' 

670  LOCATE  10. li;  PRINT  'Provo.  Utah  84602* 

680  COLOR  15 

690  LOCATE  15.9.0*.  PRINT  CHR«  (213 ) +STRING* (20.205 )+CHR»  ( 184  ) 

700  LOCATE  16.9.0!  PRINT  CHR»(179)+'  Mir.i-LAB  '+CHR»;i79) 

710  LOCATE  17. 9, o;  PRINT  CHR$(179)+*  RetTievel  System  '+CHR$(179> 

720  LOCATE  13.9.0:  PRINT  CHR*(179)+'  Utilities  'tCHR*(179) 

730  LOCATE  19.9.0!  PRINT  CHR*(179)+'  Version  1.0  '+CHRS(179) 

7^0  LOCATE  20.9.0*.  PRINT  CHR* ( 212 > tSTRING* ( 20.205> +CHR$ ( 190 ) 

750  COLOR  12 

760  LOCATE  24.7.0*  PRINT  'Press  SPece  bar  to  continue' 

7~0  POKE  106.  0 

780  CMDI  =  INKEYS 

7^0  IF  CMDS  *  "  THEN  GOTO  780 

BOO  IF  CMDS  =  CHRS(27>  THEN  GOTO  840 

810  IF  CMD*  =  •  *  THEN  GOTO  920 

820  GOTO  7:0 


e:0  IF  (STATUSd) '>0)0R(STATUS(2)  -:>0)  THEN  HISTAKE=4;  GOSUB  2130;  GOTO  1020 
Bi5  EXITFFGlit='2’TCHR«(10) :EXITPRGM$=RIUHIi(EXITPRGM$»2) 

B-iO  CLStCOLOR  T’.WIDTH  BO’.KEY  OM’.GOSUB  3530:PRINT  *1  f EXITPRGMI 

B^2  CLOSE  ♦!:  END 

B50 

B60  REM*»»* 

B70  SUBROUTINE  HAIN  MENU 

B60  REM**** 

B'^O  REM**** 

9'.-0  REM**** 

910  REM**************************************** 

920  REM 

930  CLS:  SCREEN  1»0J  COLOR  9fl 

940  LOCATE  4f8»i:  PRINT  'MINI-CAM  RETRIEVAL  SYSTEM* 

950  LOCATE  11»3:  PRINT  'MAIN  MENU  OPTIONS!' 

960  DEF  SEG*.  POKE  iH4E»  2  'chsnse  pen  color  to  ■aSenta 
970  LOCATE  14.10!  PRINT  '1.  Transport  control' 

930  LOCATE  16.10!  PRINT  *2.  Inventory  Manager* 

990  LOCATE  18.10!  PRINT  '3.  Exit  Proaran.* 

995  LOCATE  24.12  !  PRINT  *<CNTRL-D>  for  auto-run  demo'J 
1000  LINE  (43.11)-(267.43)..B!  LINE  (41 .9)-(269.45) . .B 
1010  DEF  SEG!  POKE  *H4t>  3!  'chanae  pen  color  to  white 
1020  LOCATE  21.1  !  PRINT  CLEARLINEi 
1030  LOCATE  21.3!  PKINT.'ENTER  OPTION  **>  '? 

1033  MCMD»=INKEY$  !  IF  LEN  (MCMD*)  =  0  THEN  GOTO  1033 
1035  PRINT  MCMDtf 

1040  IF  (MCMD4  =  '1')  THEN  GOSUB  1520 

1050  IF  (MCMD*  =  '2')  THEN  GOSUB  3000 

1060  IF  (MCMD*  =  *3*)  THEN  GOTO  830 

1065  IF  (MCMD*  =  CHR$<4))  THEN  GOSUB  4000 

1067  IF  DEMO  >  0  THEN  GOSUB  1520 

lO'O  GOTO  930 
lOfcO  REM 

10*^0  PEM***************************************** 

1100  REM**»« 

1110  REM**»*  SUBROUTINE  RETRIEVAL  DRAW 
1120  REM**»* 

1130  REM** ************ t ************************** 

1140  REM 

1150  X  =  12!  Y  =  4 

1160  FOR  I  =  1  TO  6 

1170  FOR  J  =  1  TO  3 

1180  LOCATE  X.Y!  PRINT  (I*10)+JJ 

ll^'O  X  =  X  -  4 

1200  NEXT  J 

1210  X  =  12!  Y  =  Y  +  6 

1220  NEXT  I 

12:‘0  VSMP*  =  '61123  DIO  BD22  DIO  BD22  DIO  R34  UlO  BU22  UlO  BU22  UlO  BU23' 
12-»0  HSKIP*  =  'BR7  R34  BR14  R34  BR14  R34  BR14  R34  BR14  R34  BR14  R34' 

1210  DRAW  'Cl!  BM  15.15  R288  D97  L288  U97' 

12i0  DRAU  'BM  15.15  R48  ND97  R48  ND97  R48  ND97  R48  ND97  R48  ND97* 

12’0  DRAW  'BM  15.48  R288  BM  15.80  R288  BM  15.38  XHSKIP*5  BM  15.70  XHSKIP*;* 
1280  DRAW  'BM  15.102  XHSKIP*!' 

12‘^0  X  =  22!  PSET',X.15) 

13'  0  FOR  I  =  1  TO  6 

1310  DTAIJ  'Cl!  XVSKIP*!* 

1320  X  =  X  t  43!  DRAW  *BM  =X!.15' 

1330  NEXT  I 

1340  DEF  SEV:  POKE  IH4E>  2 


IIZO  IF  STATUS(l)  =  0  GOTO  1A20 
13^0  I  =  1 

13/0  UHILE  (STATUS(I)  <>  BIN  <I))  AND  (I  <=  18) 

1380  I  =  I  F  1 

U'^O  WEND 

1400  LOCATE  ROU(I),  COL(I):  PRINT  STATUS(l) 

1410  LOCATE  R0W(l)  +  3.  COLd):  PRINT  'at  I’i 
1410  IF  STATUS(2)  =  0  GOTO  1490 
1430  I  =  1 

1440  UHILE  (STATUS(2)  <>  PIN(I))  AND  (I  <=  18) 

1430  1=1+1 

1460  WEND 

14'’0  LOCATE  ROW(I)*  COL(I):  PRINT  STATU3(2)J 

1480  LOCATE  R0U(I)+2t  CO'  (1)1  PRINT  ‘at  2'j 

14'-0  DEF  SEG;  POTE  tHAE.  3 

1500  RETURN 

1510  REM 

1520 

1530  REM»*»» 

1540  FEM»»*»  TRANSPORT  MENU 

1550  REM»*»* 

15; 0  REM»*f »»<»**»**» t»»*»»»*««»*»»»»»****l***** 

1570  REM 

15E0  CLS:  WIDTH  401  SCREEN  liO!  COLOR  9 
1500  LOCATE  lfl2  :  PRINT  'TRANSPORT  CONTROL 
1600  GOSUD  1090  '^nnt  retrival  draw 
1610  GOSUD  1800  'clear  nenu  sudroutme 
1620  LOCATE  17.3  1  PRINT  'TRANSPORT  MENU!' 

1630  DEF  SEG:  PJRE  IH4E.  2 

1640  LOCATE  19.12:  PRINT  M.  Retrieve  Pin 

1650  LOCAlE  20.1.’:  PRINT  Return  Pin 

1660  LOCATE  21.12:  PRINT  *3.  E  it  To  Mam  Menu* 

16'0  DEF  SEG:  PO) E  IH4t .  3 

1680  LOCATE  23.1  :  P^InT  CLEARlInE*! 

16'’0  LOCATE  23.3  :  T*- iNt  ;  •EN''tR  OPTION  '; 

IF  DEMO  0  THEN  DP ’-q,  (,£  ^  1  ;  j  p  pEnQNO  >  36  THEN  GOTO  4500 

16°2  IF  DEMO  •  0  then  i-t<.  ' ni  ;  t  r  i  ghT  »  •  STR»  (  TCMD ) .  1 )  1  GOTO  1695 

16^3  TCMDtdv^E'*  :  IP  tE  "I*  =  C  THEN  GOTO  1693 

I605  PRINT  TCMD»; 

1700  IF  <TCMI»  =  *!•'  ^HEs  6OS2E  2430 

1710  IF  (TCMD+  =  '  ■^hEn  C'OSjF  26'’0 

1720  IF  (TCM['»  =  'Td  THEN  REai>-N 

1730  GOTO  1610 
1740  REM 

1750  REM*««t*t*ttt«t**lt»*<***t«»t*t»t*«»t**t«** 

1760  REM**tt 

17'0  REM»*»*  SUPPOUTINE  CLEAR  MENU 

1760  REM»»»* 

17C0  REM*t««»»«»y («««««»«*» 

IS'I’O  REM 

1810  FOR  I  =  17  TO  24 

1820  LOCATE  Ifll  PkINT  CLEARLINE*) 

1630  NEXT 
1840  RETURN 
1850  REM 

iE-0  f:EMyyy»»yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 

18*0  REM»»»« 

ie'’0  REMMy*  SUPROUTINE  MARK-PIN 
18’0  REMy»»l 

icno  C'C-^y ttyt Mvyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 


1910  REH 
1920  I  =  i; 

1930  WHILE  (BINNO  '  ■  BIN(I))  AND  <I  <=  18) 

1940  1=1+1 

1950  WEND 

1960  IF  FLAG  =  1  GOTO  2010 
1970  DEF  SEGJ  POKE  IH4ef  3 
1080  LOCATE  F:OW(I)f  CQL(I):  PRINT  BINNG* 

1990  LOCATE  R0U<I)+2»  COL(I):  PRINT'  'i 

2000  GOTO  2060 

2010  DEF  SEG:  poke  SH4Ef2 

2020  LOCATE  ROU(I)>  COL(I):  PRINT  BINNOi 

2030  LOCATE  RUU'(I)+2f  COL(I) 

20^0  IF  TPAYNO  =  1  THEN  PRINT  'at  1*  ELSE  PRIN’  'at  2* 

2050  DEF  SEU:  PUKE  iH4E.  3 
2060  RETURN 
2070  REM 
2080 

2090  REM**** 

2100  REM»«**  SUBROUTINE  ERROR  MESSAGE 
2110  REM)»*»* 

2120 

2130  REM 
2140  STOPIT  =  1 

2150  LOCATE  25»i:  PRINT  CLEARLINE+5 
2160  PRINT  CHR$<7)} 

2170  DEF  SEG5  POKE  *H4E»  1 

2180  LOCATE  25f3'.  PRINT  '»**>  *  }ERRORMESG»(MISTAKE)  i  *  <»**'» 

2190  JUNKi  =  INKEYiJ  IF  JUNK«  =  "  THEN  2190 
2200  LOCATE  25»15  PRINT  CLEARLINE*) 

2210  DEF  SEG:  POKE  XH4E.  3 
2220  RETURN 
2230  REM 

22^0  REM*t**»|:*<:»»f|f»t*»»|;**»»*))!»|:***»**»*»*»»** 

2250  REM**»* 

2260  REM*»»*  SUBROUTINE  RETRIEVE  CHECK 
2270  REMtf** 

2280  REM»*»#**»****»***»*»***»»»«*»*»*»»»**»**** 

22«0  REM 
2300  STOPIT  =  0 

2310  IF  (TRAYNO  =  1)  AND  (STATUS(l)  <>  0)  THEN  GOTO  2320  ELSE  GOTO  2330 
2320  MISTAKE  =  6*,  GOSUB  21301  RETURN 

23.0  IF  (TRAYNO  =  2)  AND  (STATUS(2)  <>  0)  THEN  GOTO  2340  ELSE  GOTO  2350 

23-»0  MISTAKE  =  71  GOSUB  2130 

2350  RETURN 

2360  REM 

23-0 

2380  REM»*»* 

23'’0  REM#***  SUBROUTINE  RETRIEVE  BIN 
24'.0  PEM***** 

2410  REM**************************************** 

2420  REM 

2430  GOSUB  1800  'clear  itenu 

24.:0  LOCATE  W»3:  PRINT  'RETRIEVE  BIN!' 

2450  IF  (STATUST 1 ) '>0'AND(STATUS(2) '>0)  THEN  MISTAKE=5l  GOSUB  21301  RETURN 


2^40  GDSUP  2850  'ipfuI  bin  nunber 
24'’0  LOCATE  2b.lt  PRINT  CLEARLINEt! 

2480  IF  BINNO  =  0  THEN  RETURN 

2490  IF(PINN0=STATUS(1))0R(BINN0=STATUS(2))THEN  MISTAKE=8 t GOSUB  2130;G0T0  2460 
2492  IF  STATUS(l)  <>  0  AND  STATUS(2)  =  0  THEN  TRAYNUi  =  •2’  t  GOTO  2517 
24‘’4  IF  STATUS!!)  =  0  AND  STATUS(2)  <>  0  THEN  TRAYNO*  =  'I'  t  GOTO  2517 
2500  LOCATE  21.  It  PRINT  CLEARLINE4J 

2510  LOCATE  21. 3t  PRINT) 'DELIVERY  TRAY  tt>  •) 

2511  IF  DEMO  >  0  THEN  READ  TRAYNOtTRAYNU»=KlGHT$(STRI(TRAYNU) . 1)  t  GOTO  2515 
2513  TRAYN0»=1NKEY$  1  IF  LEN(TRAYNO*)  =  0  THEN  GOTO  2513 

2515  PRINT  TRAYNOO tGOTO  2520 

2517  LOCATE  21. 3t  PRINT) 'DELIVERY  TRAY  t%>  'ITRAYNOi) 

2520  IF(TRAYN0»<>'1' )AND( TRAYN0t'>'2' )  THEN  HISTAKE=li:  GOSUB  2130t  GOTO  2500 

2530  IF  TRAYNO*  =  '1'  THEN  TRAYNO  =  1  ELSE  TRAYNO  =  2 

2540  GOSUB  2j90  'check  routine 

2550  IF  STOPIT  =  1  GOTO  2500 

2560  FLAG  =  1 

2580  STATU£(TRAYNO)  =  BINNO 
25S5  GOSUB  3530 

2590  0P«='l'+CHRt(10) tP$=STR$(BINN0)+CHR$<10) tT»=STR»(TRAYNO)+CHR$(10) 

25°1  0P$  =  RIGHrt(0P».2)tPRlNT  *  1 . 0P$ ) t RLI NE  =  1 1 GO TO  3460 

2592  B»=RIGHT*(B».3) tPRINT  ♦l.Bi.tRLINE  =  21GOTO  3460 

2593  f»=RIGHT$(T».2) tPRINT  #1.7$) 

2595  GOSUB  1910  'aark  routine 
2600  RETURN 

2610  REM 

2620  REHtttttttttttttttttttttttttttttttttttttttt 
2630  REMt|;«» 

2640  REM»»»»  SUBROUTINE  RETURN  BIN 
2650  REM**»» 

2660 

2670  REM 

2680  GOSUB  1800  'clear  aenu 

2690  LOCATE  17. 3t  PRINT  'RETURN  BINt' 

2700  IF(STATUS(1)=0)ANP<STATUS(2)=0)  THEN  MISTAKE=3tG0SUB  2130t  RETURN 

2702  IF  STATUS(l)  <>  0  AND  STATUS(2)  =  0  THEN  BIN$=RIGHT$ ( STR$ ( STATUS ( 1 )). 2 )  t  G 

OSUB  2905  t  GOTO  2720 

2704  IF  STATUS(l)  =  0  AND  STATUS(2)  <>  0  THEN  BIN»=RIGHT$ ( STR$ ( ST  AT  US ( 2  ) ) . 2 )  t  G 

DSL'B  2905  I  GOTO  2720 

2710  GOSUB  2850  '  input  bin  nuaber 

2720  LOCATE  25.lt  PRINT  CLEARLINE$) 

2730  IF  BINNO  =  0  THEN  RETURN 

2740  IF  (STATUSdX 'BINNO)  AND  ( STATUS  ( 2 )  OBINNO )  THEN  GOTO  2750  ELSE  GOTO  2760 
2750  MISTAKE  =  91  GUSUB  2l30t  GOTO  2710 
2760  FLAG  =  0 

2780  IF  STATU£(1)=PINN0  THEN  STATUS(l)=Ot  1AG=1  ELSE  STATUS(2)=0t  TAG=2 

2781  GOSUB  3530 

27t2  0P»='O'+CHRt(10) :P$=STR»(PINN0)+CHR»(10) t1*=STR$(TAG)+CHR»(10) 

2783  OP$=RIUHl$(OP$.2)tPRINT  ♦ 1 . 0P$ ) t RL INE=3 t GOTO  3460 

2784  B»=RIGHT»(B»,3)1PRINT  *1 ,B») tRLINE=4tG0T0  3460 

2785  T$=RIGHTf (T$.2) tPRINT  #1,T$) 

2788  GOSUB  1910  'SUBROUTINE  MARK  BIN 
27^0  RETURN 

2800  REM«t«t4«»«**««f«««««*«t««t ««»««*««* «««»««»« 

28:0  REM**J'* 

2E:0  REm*»»*  SUEFOUTINE  input  PIN  NUMBER 
2830  REM»t»* 

CB-'O  »«♦*»»*»»*»*»»»*»**»»*»»*»»» 

2350  RE" 


2S60  DEF  SEG:  POKE  tH4Etl 

28:’0  LOCATE  25fl2:  PRINT  CHR$(26)+  *  Q)UIT  to  exit  *  +CHR<(27); 

2880  DEF  SEU:  POKE  JH4Kf3 

2BVO  LOCATE  19,1*.  PRINT  CLEARLINEt 

2895  IF  DEMO  >  0  THEN  READ  8IN:DIN$=RIGHT$(STRi(BIN) »2)  !  GOTO  2905 
2900  LOCATE  19.3!  INPUT} 'BIN  NUMBER  **>  ’.BINS  I  GOTO  2910 
2905  LOCATE  19»3:  PRINTi'BlN  NUMBER  »»>  NBIN^ 

2910  IF  (BINi=‘0*)  OR  ( BIN$= ' QUIT • )  THEN  BINNO  =  0*.  RETURN 
2920  I  =  1 

2930  WHILE  (BIN»  <>  BINNOSd))  AND  (I  <  19) 

29A0  1=1+1 

2950  WEND 

2960  IF  I  =  19  then  MISTAK'^  =  lO*.  GOSUB  2130J  GOTO  2860 
2970  BINNO  =  BIN  (I) 

29fcO  RETURN 
29':0  REM 

3000  REM********** »***»******♦*»»»»*»***»**»***» 

3010  REM**** 

3020  REM****  SUBROUTINE  INUENTORY  MENU 
3030  REM**** 

30^0  REM** *************************** *********** 

3050  REM 

3060  CLS:  WIDTH  40)  SCREEN  ItO:  COLOR  9 
3070  LOCATE  1.12  1  PRINT  ’INVENTORY  MANAGER’ 

3080  GOSUB  1090 

3090  LOCATE  17.3  PRINT  ’INVENTORY  MENU’ 

3100  DEF  SEG:  poke  JH4E.  2 

3110  LOCATE  19.121  PRINT  *1.  Systen  Editor’ 

3120  LOCATE  20.121  PRINT  ’2.  List  Empty  Bios’ 

3130  LOCATE  21.121  PRINT  ’3.  List  All  Bins’ 

31-10  LOCATE  22.121  PRINT  ’4.  Return  To  Main  Menu’ 

3150  DEF  SEGl  POKE  JH4E.  3 

3160  LOCATE  24.1  1  PRINT  CLEARLINE*} 

31/0  LOCATE  24.3  1  INPUT} ’ENTER  OPTION  **>  ’.ICMD* 

3180  IF  (ICMD*  =  •!•)  THEN 
31°0  IF  (ICMD*  =  ’2’ )  THEN 
3200  IF  (ICMD*  =  ’3’)  THEN 
3210  IF  (ICMD*  =  ’4’)  THEN  RETURN 
3220  GOTO  3160 

3400  REM**** ************************ ************** 

3410  REM**** 

3420  REM****  READY  TO  TRANSMIT  HANDSHAKE 
3420  REM****  WITH  APPLE 
3440  REh»**» 

3450  REM*** ************************** ************* 

3460  INPUT  *1. CHECK* 

34cl  X  =  INSTR( CHECK*. ’OK’  )  1 Y  =  INSTR ( CHECK* .’ WHAT’ ’  ) 

34>2  IF  X=0  AND  Y=0  THEN  UOTO  3460 

3463  IF  Y-'O  THEN  ON  RLINE  GOTO  2591,2592.2783.2784 

34.-4  FOR  I  =  1  TO  251  NEXT  I 

3465  ON  RLINE  GOTO  2592,2593.2784,2785 

34S0  REM*** *******************************  ******** 

3490  REM**** 

3500  REM****  CHECK  CLEAR  TO  SEND  LINE  ON  APPLE 
1510  REM**»* 

3520  REM* ********************************** »*»»*** 


3530  INF'UT  ♦!. CHECK! 

3540  X=IN£TK(CHECK»f 'REAriY*  ) 

3550  IF  X  =  0  THE^F  GOTO  3520 
3560  RETURN 
4000  REM 
4010  REM  *»» 

40:0  REM  ttt  AUTO-RUN  DEMO  SETUP 
4030  REM  »»» 

4040  REM 
4050  REM 

40f0  CIS  :  PRINT  ‘THE  DEMO  ROUTINE  WILL  AUTOMATICALLY  * 

AO"’©  PRINT  ‘CYCLE  THROUGH  ALL  THE  DRAWERS’  1 PRI NT  5 PR INT  1  PRINT 

40E0  PRINT  ‘DO  YOU  STILL  WANT  TO  USE  THE  DEMO  ?(Y/N)‘» 

40'’0  DEh'J!=!NKEYt  1  IF  LENdiEMOt)  =  0  THEN  GOfO  4090 
41(0  IF  DEMO!  C'  ‘Y*  THEN  RETURN 

4110  PRINTlPf INT:PRINT:INPUT  ‘CYCLE  THROUGH  HOW  MANY  TIMES  '?‘>DEMOt 
4130  IK  ASC(DEMO»l  '!  48  UR  ASL'(DEM0$)  >  57  THEN  GOTO  4110 
41.'0  DEMO  =  VAL(DEMOt) 

4135  DEMONQ  =  0 

4140  DATA  1 .43. I,l»22>2>43.2.1.61»l,ljll.2.61»2.1.52»l»1.33f2.52»2 

4150  DATA  1. 41.1,1.2 i,2»41.2»l»6if If I»13f2f63f2flf 53 fl»lf31»2i53f2 

41 eO  data  1,42, 1,1, 2 1,2, 42, 2, 1,62, 1,1, 12, 2, 62, 2, 1,51, 1,1 ,32 >2, 51, 2 

4165  DATA  1.11,1,2,11 

4170  RETURN 

4500  REM 

4510  REM  »»* 

4520  REM  ttt  CHECK  FOR  ANOTHER  CYCLE  IN  DEMO 
4530  REM  ttt 

4540  REM  ttttttttttttttttttttttttttttttttttttttttt 

4550  REM 

4560  DEMO  =  DEMO  -  1 

4570  IF  DEMO  =  0  THEN  PRINT  •3‘r.RETURN 
4580  DEMONO  =  0 
4590  RESTORE 
4600  GOTO  16S2 


.  :  ■  ■  "l  —  1  •••.  ;  oif  CLE .a?  •-  .;j.  1  .  . .  1  ;  c  rpcLE'  Z""!  ,  A7>  •  ao  -  l  ■  •  •  l 

’  I'-O  p[‘3  D2  FTii  I'40  2J^«a7  |;jo  f,’K3  1:2  5:^3  pAn- 

-T  ■ : .  1 '  •  a;o'  :  gcgub  3230 

■!  ?  :2.A'E  7,1  :  life  input;  PAPAh$(3,2)  'LARGEST  DIAM  (»1> 

i.  -.rE  14.7;  line  INPU"":  PARAMt(3,l)  'LENGTH  OF  LARGEST  DIAh  (♦!) 

il;)  LO'.A'E  14»9:  LINE  INPUT;  RARAMI(4,1)  'LENGTH  DIAH  ♦!  AND  *2 

'!  3  LOIATE  18, 11:  LINE  INPUT.  PARAM$(5,1)  'LENGTH  DIAM  41,2  AND  3 
3!  0  LClAiE  6,19:  LINE  INPUT;  PARAM»(5i2)  'WIDTH  SMALLEST  DIAM  (#3) 

3T  0  LOCATE  7.24;  LINE  INPUT'.  FARAMt(4.2)  'WIDTH  DIAM  *2 

36  0  LENGTHIiIAM=UAL(PARAM$(5.1))-UAL(PARAM$<4.1)):PARAMt(5.1)=STR$(LENGTHDIAM)  ' 
PI''D  LENGTH  OF  DIAM  #3 

36'.  0  LENG-HriAM  =  VAL(PARAM$(4.1) )-UAL(PARAM»(3.1)):PARAMi(4,l)  =  STRi<LENGTHDIAM)  ' 
FIfD  length  of  DIAM  *2 
3620  RETURN 

3630  REM  SUDROUTINE  INITIALIZE  ARRAY 
3sA0  FOk  I  =  1  ’’0  12 

33^0  POP  J  =  1  TO  2:  PARAMtd.J)  =  ‘O* 

36- 0  NEXT  J:  next  I 
36"0  RETURN 

36?0  ' 

3--0  'CREATE  PROCESS  PLAN  CONTROL  FILE 
3  ^  ' 

3' 10  OPEN  "O*  .»TEMPF-/;. 'PROCTEMP.TEX’ 

3'.0  CLSdNPUT  'ENTER  PART  NUMBER  (OR  C  TO  CANCEL)  ===>'. PRTNUMB» 

3i'0  IF  PRTNUMBt=*C'  THEN  CLOSE  #1 EMPF% ; RETURN 

37- 0  cRif,!  ♦TEMPFX.PRTNUMBI  'SAVE  PART  NUMBER  IN  FILE  THAT  WILL  BECOME  NAME  OF  N 
EU  CON  FILE 

37C0  CLOSE  ♦TEMPFi: 

37t0  OPEN  'O' .ITEMPF'/.. 'PROCONT  .PAT* 

37^0  PRINT  ♦TEMPF%. 'TREE*  'RUN  DLCASS  LAP  MAINLINE  TO  EXECUTE  PROCESS  PLAN  GREAT 
E  TREE 

J'bO  PRINT  tTEMPF'/I. 'PROCCON* 

37^0  CLOSE  ♦TEMPFX 

3800  SYSTEM  'EXITS  BASIC  AND  WILL  NOW  EXECUTE  BATCH  FILE  PROCONT  -  PROCESS  CONTR 
OL  CONTINUED 
3810  ' 

3812  '»»»»»»»**»*»»»»»»*»»»*«»»» 

3814  ' 

3810  'EXECUTE  ROUTINE 
3830  ' 

3974  ' ttttttttttttttttttttttttt* 

3836  ' 

3S-=0  EdTEXCT7.  =  0 
39-2  ' 

3913  GOSL'P  39R0  'CLEAR  SCREEN 
39"2  ' 

JS:A  GCSUB  4020  'CHECK  FOR  OPERATOR  INPUT 

39  ■  2  ' 

3e'’'J  IF  MFIXT.  =  1  THEN  MF I X'/:  =  0 1  GOTO  3940  'FIXING  PROCESS  WHERE  MUX  MISSED  CNTL-A 
38  A  IF  EXITEXCT7.=  1  THEN  EXITEXCTZ  =  0:RETURN  'EXIT  EXECUTE  ROUTINE 
79' A  IF  N£PR0C'/.=  1  THEN  GOSUB  5030 :  NEPR0CX=0 :  GOTO  3850  'PUT  NEXT  STEP  IN  NEW  PROC 
£9:  "^  LAN  IN  MACHINE  QUf .  THEN  CHECK  AGAIN  FOR  A  NEH  PROCESS  PLAN  10  EXECUTE 
0  IF  J0BSF:UNG'/:  =  0  GOTO  3850  'NO  JOBS  RUNNING  TO  CHECK  ON 

t:  - 

79' A  '-.OSUB  4400  'CHECK  FOR  MACHINE  FINISHED 

.  2 

39:  A  IF  MACHRDY7.=0  THEN  GOTO  3850  'NO  MACHINES  READY  FOR  NEXT  PROCESS 
39:0  IF  N0NEFIN7.  =  1  then  UOfO  3960  'NO  PROCESSES  READY  FOR  NEXT  PROCESS 

7'  '■  :o:''B  50^0  'FU"  NEXT  STEP  IN  PROCESS  PLAN  IN  MACHINE  OUE 

Tr  rr  -I  C  r.v-^r,  THEN  GOTO  7850  'JOE  FINISHED  FC-'  THE  H6CHINE  THAT  REQUESTED  A 


"0  :ooo-we/t;if  ldc' the^  f-F-nJT’HAviNG  pfoplems  F'e:ie"I 
•  ■  -  •'.E''G0'^0 

i!-c  jTt  (  LOC  '  rtU'>rr.)  ,#huyr2)  :X=INSTR' ANSWER*  » ’F'EADr*  )  :  IF  <:  =  o  then  F-RIN 
■’Lll'-  r  crriEvE  READY  FORM  LATHE’IOOTO  J910 
JO-0  f<  IHT  ♦MUXFV., 'DESIGN*  ;CHRt<  10) }  'SELECT  DESIGN  OPTION 

ST':  IN>-'.'T  ♦MU/F-/.,ANSUER$;x  =  INSTR(ANSWER*,'UK*):iF  X  =  0  THEN  PRINT'DIDN'T  TAKE  PE 
E  I'.N  CHOICE*  '.GOTO  2940 

:f>-0  for  H0LD%=1  to  2000;NEXT*.  if  L0C<HUXF7.)=0  then  goto  2960 

ANSUER»  =  INPUrt  (  LOC  ( HUXF'/.  > .  ♦MUXFX ) :  X=INSTR  ( f-R’SWER*  f 'PLOADED  *  )  t  IF  X  =  0  THEN  P 
RI'JT'HAHING  PROPLEHS  RECIEOING  FROH  APPLE  * ‘.PRINT  tHUXF'X  ,  *  PAD*  F  CHR*  (1 0 )  5  *.  GOTO  296 
0 

29B0  PRI^T  ♦MUXFZ»*aK*!CHR»(10); 

29‘’0  INPUT  ♦MUXF%.ANSWER*:X=INSTR'ANSUER». ‘GOOD* ) :IF  X=0  THEN  PRINT  *HAyiNG  PROP 
LEnS  sending  TO  IPM* IPRINT'APPLE  SENT  ==>* i ANSWERIIGQTO  2960 
30C0  'PRINT  ♦l>PARAMt(l,l) 

30:0  'GD3UP  1630 

30:0  PRINT  ♦MUXF%fPARAH*<1.2)iCHR*(10)»  'PART  NAME 
3020  GCSUP  3200 

30^0  PRINT*TRANSMITTING  DATA*J 

20C0  'PRINT  ♦MUXFZ.PRTFAMLY*iCHRi<10);:G0SUP  1980  'PART  FAMILY 
30^0  PRINT  ♦HUXFZ>PARAM*(2»1)!CHR*<10);:PRINT*.*5:G0SUP  3200  'PART  NUMBER 
30-0  PRINT  ♦MUXFZ.NUMPDIAM*:CHR*(10)»:PRINT*.*f IGOSUP  3200  'NUMBER  OF  DIAMETERS 
3050  RRI'JT  ♦MUXFZfPARAM»(12fl)fCHR*(10)»:G0SUB  3200  'FEED  RATE 

30  =  0  RCINT  ♦MUXF7.,PARAMt(12>2);CHR»(10)i:PRINT*.*»;G0SUB  3200  'CUT  DEPTH 
3150  RFI'T  ♦MUXFr.,STOCMJDTH»SCHR»(  10)  i  IGOSUB  3200  'STOCK  DIAMETER 

3110  RRI'-'T  «MUXF7..ST0CKLEN»;CHR*(10);:PRINT*.*f  IGOSUP  3200  'STOCK  LENGTH 
3120  FOR  I  =  3  TO  UAL (NUMBDIAM*  )+2 
3130  FDR  J  =  1  TO  2 

3140  PRINT  ♦MUXF2.  PARAM* < I f J ) ! CHR» ( 1 0) 5  'PART  DIMENSIONS 
31:0  GOSUP  3200 
3160  NEXT  J 

31  0  NE'^T  I 
3190  GOSUP  3630 
Sivo  RETURN 

3200  REM  TIMING  LOOP 

3210  for  KK  =  1  to  100;  NEXT  KK 

3220  RETURN 

3230  REM  SUBROUTINE  TO  DRAW  TITLE  BLOCK 
3240  LINE(106>148)-(317i197).3»B 
32'0  LINE(104.146)-<319»199) .3.B 
3260  LINE(106.171)-(317il7l) 

32'’0  LOCATE  20»23.0;  PRINT  'PART  NAME’F 

3250  LOCATE  23.16.0:  PRINT  ‘BASIC  SHAPE:  “rPARAM»(l.l) 

32‘^0  LOCATE  24.16.0:  PRINT  'PART  NUMBER*.’? 

33'  0  DEF  SEU:  POKE  tH4E.2 

3310  LOCATE  20.1.0  I  PRINT  'enter  data*? 

3330  LOCAfE  22.1.0  :  PRINT  ‘at  cursor*? 

3330  LOCATE  24.2.0  :  PRINT  ’position*? 

3340  DLF  SEG:  POKE  *H4t.  3 

3350  LOCATE  21.16.1:  LINE  INPUT?  PARAM»(1.2) 

33-0  LOCATE  24.29.1:  LINE  INPUT?  PARAM»{2.1) 

!3'0  fE'^'JAN 

33:^0  REH  SUBROUTINE  A20 

33' 0  CLS:  SCREEN  l.O:  COLOR  O.i:  KEY  OFF 

r-,  ^nCAfE  2.2.0:  PRINT  CHR»(24):  LOCATE  11.2:  PRINT  CHR*(25) 

4’.0  l'ICATE  5.19  :  PRINT  CHR*f25):  LOCATE  8.19:  PRINT  CHR*(24) 

3430  LOCATE  4.24  ;  PRINT  CHR*(24):  LOCATE  9.24:  PRINT  CHRtCS) 

T4''0  LOCATE  13-6  :  PRINT  CHPt(27):  LOCATE  13.9;  PRINT  CHF:*(26) 

34  40  LOCATE  15.6  :  PRINT  CHRtC:’):  LOCATE  15.13:  PRINT  CHR*(26) 

'450  LC'ATE  1'.6  :  P'^INT  CHRt(27i:  LOCATE  17.17:  PRINT  CHRt(26) 

'4  0  I'T-I'  'rii  PH  3°-"  DiO  472  U50  L32  BM  7i.23  F:32  PAR  L32  BM  103*39  R32  D16  L3 

-  % 

4  -I  '■  *5':  D“  ' .  ^  tCA  lC5  D72  BD15  D32  L4  PC'’  L24  U32  PU16  U32' 

;  ;  .  ■  -  7-..-  244  ui  Sir)  f;-40  !_40  BL16  L40  UI6  P2J  BR16  R24‘ 

.4  1 2  !  n  103  DJ4  RH  135.59  D''6 

-J  •  -  .  7  c  r.  5  17  rj.  .-D;.  D 1  7  P’4  l:’4  PHI  IJ16  BU’6  U’6  pH  13R,7R  P2n  p 


:f  Kt  ••  then  goto  2270 

’  =  ;  r-- F  ‘  •  then  goto  ojvo 

.  .»  F  -'ITTit  t-l,  1)  =  THEN  F-RTFAHLY»='AOO’;NUMIiIiIFiMt=*l*  IGOSUB  2380 

IP  then  PRTFAMLY$=‘A10' ;NUMEtDIAM»=*2' :G0SUB  2530 

23-0  IF  NlT'KKi- 1 .  i )  =  ’S’  THEN  PRTFAHLY*= '  A20' :  NUMBDI  AM*= '  3  ‘  5  GOSUB  3380 

;7'0  !F  1)  =  M'  THEN  GOSUB  2750 

23- 0  IP  niDKKi.lfl)  =  CHR$(27)  THEN  GOTO  2360 
2320  GOTO  2160 

23  0  BOPEEN  OIWIDTH  80:  COLOR  7.0 
23'0  RETURN 

2380  REM  Subroutine  'AOO' 

23'0  CLS:  SCREEN  l.O:  COLOR  0.1 
2400  LINE  (31.55)-(159.111).1.B 
2410  LOCATE  5.5.01  PRINT  CHR»(27) 

2420  LOCATE  5.20  :  PRINT  CHR$(26) 

2430  LOlAiE  8.23  :  PRINT  CHR$(24) 

24^0  LOCATE  14.23:  PRINT  CHR*(25) 

2410  DPAU  'CiJ  BM  31.31  D21  U17  R56  BR16  R56  U4  D21* 

24i0  DPAU  'BM  162.55  R20  L3  D20  Bril6  D20  R4  L20  R17  U20  BU16  U20' 

24- 0  CIKCLE(259.83).2S.1...1 

2480  DRAW  '03;  BM  259.51  D28  PD2  D4  BD2  D28  BM  227.83  R28  BR3  R2  BR3  R28* 

24P0  PAR'AMtd.l)  =  ‘AOO':  GOSUB  3230 

25' 0  LOCATE  4.12.01  LINE  INPUT;  PARAM«<3.1)  'OVERALL  LENGTH 

2510  LOl'AIE  11.22  :  LINE  INPUT;  PARAM»(3.2)  'OVERALL  DIAMETER 

2510  RETURN 

2530  REM  SUBROUTINE  AlO 

2540  CLS:  SCREEN  l.Ot  COLOR  0.11  KEY  OFF 

2550  PSET(63.47);  DRAW  ‘Ci;  R32  D88  L32  U88  BM  95.63  R32  D56  L32* 

2560  CIRCLE(243.91).28.1...i:  CIRCLE < 243 . 91 ) .44 . 1 ...  1 
25T0  PSET(195.91)  t  DRAW  'RAA  BR3  R2  BR3  R44* 

2580  PSET(243.43)  :  DRAW  ‘044  BP3  D2  BD3  D44* 

2590  LOCATE  3.9.0  1  PRINT  CHR$(27);  LOCATE  5.9.0  1  PRINT  CHR»(27> 

26C0  LOCATE  3.16.0:  PRINT  CHR«(26):  LOCATE  5.12  %  PRINT  CHR4<26) 

2610  LOCATE  9.19  :  PRINT  CHR4<24):  LOCATE  15.19  :  PRINT  CHR»<25) 

2620  LOCATE  7.6.0  :  PRINT  CHR*<24):  LOCATE  17.6.0:  PRINT  CHR$(25) 

2670  DRAW  'PM  3'’. 47  R20  BM  39.135  R20  BM  43.47  D40  BDB  D40’ 

2640  DRAW  'BM  63.15  D27  BM  95.32  D12  BM  127.15  D43’ 

2650  DRAW  'BM  63.19  R2e  BR8  R28  BM  63.35  R12  BR8  R12* 

2660  DPAU  'BM  131.63  R20  BM  131.119  R20  PM  147.63  P24  BDB  D24* 

26T0  DRAW  ‘PM  148.63  D24  BP8  D24  BM  44.47  D40  BDB  D40' 

2630  PAFAhtd.l)  =  'AlO*:  GOSUB  3230 

26^0  LOCATE  2-11.1:  LINE  INPUT’.  PARAM4(4.1>  'LENGTH  DIAM  *1  AND  *2 

27.0  locate  4.11.1:  LINE  INPUT;  PARAM»(3.1)  'LENGTH  OF  LARGER  DIAM  (41) 

2T10  LOCATE  12.4.1:  LINE  INPUT;  PARAM»(3.2)  'WIDTH  OF  LARGER  DIAM  (»1) 

r^CO  LOCATE  12.I8.I:  LINE  INPUT;  PARAM»<4.2)  'WIDTH  OF  SMALLER  DIAM  (»2) 

2730  LENGTHDIAM=VAL(PARAM»(4.1) )-VAL<PARAM»(3.1));PARAM4(4.1)=STR»(LENGTHDIAM) 
find  LENGTH  OF  DIAM  *2 
2740  PETUFN 

2750  REM  APPLE  DOWN-LOAD  ROUTINE 

27c, 0  CLS:  WIDTH  40:  SCREEN  O.i:  COLOR  15 

:7"0  LOCATE  1.15:  PRINT  ’IPM  >  APPLE* 

,37:0  LOCATE  3.13:  PRINT  'DOWN-LOAD  ROUTINE* 

:'7'0  LOCATE  7,2  ;  PRINT  'PART  NAME*.  *;PARAM4(1.2) 

:S  0  L0(  A'l’E  9.2  :  PRINT  'PART  NUMBER:  '  ;  PARAM4  <  2. 1 ) 

28  0  LOCATE  11.2:  PRINT  'BASIC  SHAPE'.  *  I PARAM4 ( 1 . 1 ) 

;8:c  pRimiiNPUT  •  enter  stock  length:  '.stockleni 
:E30  RMNT;  input  '  enter  stock  width:  '.STOCKWDTHK 
;3-:0  P'-  INt;  input  '  enter  cutting  speed:  'fPARAMtdO.D 
:c:0  FR  IN7;  INPUT  *  enter  cutting  depth:  •.PARAM$d2.2) 

rpFNTrPKluT  'press  space  bar  when  ready  to  send  data' 

■  'I'C  lOr.'':  CMODt  =  inpeyc  if  cmdd»  «:>  *  •  goto  2870 
0  r'F,TA  TO  •^F■PLF 

•  '  If'i 1  ;COP  J8  4R70  -T'JFN  MUY  PORT  ON  FOR  LATHE 

-  -  ■..-t  t 'f  T-oCdl^'C  AFF'LE  REAl'Y  10  RECEIVE  DATA* 

;  :  ’  :  1-  T  T  rr  •  .  ’fea:'  <”  :CHPt  dO' ; 


Trcc  jMT  •veCOF  I'lfJC'  DCLh^S  ECREATEl'  CONTROL  FILE  INTO  r:!.r  •:CO‘JF:lE» 

‘O*  .  ;E(ii:  r2-/.,C0NFlLtt 

1  L  IF'  r'-or-.,  GOIQ  1?'?0 

■.  ■’‘0  INH'ijr  #TElPF-;f  INLINE* 

I'.o  ‘  T-inT  ♦TEMF  F2-/,  INLINE* 

17~C  -'RINT*.*; 

1"£0  :OTD  1740 

i;"'0  CLOSE  ♦TErtFFV.tCLOSE  ♦TEMFF2r. 

le'O  PRINTtPRINT’NEW  PROCESS  CONTROL  FILE  'FCONFILE*)'  IS  READY'tFOR  HOLIiX=l  TO 

i5:o:nevt 

18:0  RETURN 

18-0  -READ  IN  PART  DIMENSIONES 

1870  FOR  DIAMNX=i  TO  UAL< INPARAM$(4) )F2 

1840  FOR  PRTPARH%=1  TO  2 

1850  INPUT  ♦TEMPFI'i  INLINE* 

lEcO  INPUT  #TEMPF7.fEXTRACR* 

1870  IF  LEFT*(INLINE*.1)=*  *  THEN  INLINE*=M1D*( INLINE*. 2) JGOTO  1500  'STRIP  LEADI 
NO  SPACES 

18R0  GOSUB  5400  'STRIPS  NODE  NUMBER  INSERTED  BY  THE  DCLASS  MAINLINE 
1890  GOSUB  5400  'GET  NEXT  DIMENSION 

1900  PARAM*(IiIAMNZ,PRTPARMZ)=PAKAM*  'GET  DIAMETER  WIDTH  OR  LENGTH 
1910  NEVTINEXT 
1910  RETURN 
1°20  ' 

It^^O  PRINTIPRINT'PROCESS  CONTROL  FILE  SCONFILEi*  ALREADY  EXISTS* ‘.PRINT  ‘YOU'LL 
HA'  E  10  DELETE  IT  TO  RUN  PROGRAM* IPKINT  'USE  BASIC  KILL  '<FILE  NAME;'  COMMAND  OR 
GO  TO  DOS  AND  DELETE  I T *  1  PRINT  *  THEN  START  THE  PROGRAM  AGAIN* lEND 
1950  ' 

1952  '»**»*»**»**»****;**»*»»*:»****»*[****i 

1954  ' 

1940  CREATE  MODULE 

1  07Q  ' 

19/2  '«*»**»»»*»♦***»»*»»*»*»«*»»**»*»** 

1974  ' 

1980  CLS 

10=0  PRINT  SPC(15'F*0PTI0NS  FOR  CREATING  CNC  ANC  PROCESS  CONTROL  PILES* 

2000  PRINT  * »***«»«**««»»»»»**««««»»*««»»»«««*««««»»«»*«*»»»«»«****«»»*«*»*»«»«» 

2010  PRINTlPRINT'l.  GENERATE  LATHE  CNC  FILE  USING  GRAPHICS* 

2020  PRINT:PRINT*2.  generate  a  PROCESS  PLAN  CONTROL  PLAN  FOR  A  CERTAIN  PART  NUMB 
ER* 

2020  print:print*3.  return  to  main  menu* 

2040  PRINT:pRINT:PKlNr*CHOOSE  1-3* 

2050  ANEUERt=INKEf*:iF  ANSWER*=*'  GOTO  2050 
20t0  IP  ANSUER*=*'3*  THEN  RETURN  'LEAVE  CREATE 
2070  IF  ANSUER*='l*  THEN  GOSUB  2100;60T0  1970  'CNC  CREATE 
20C0  IF  ANSWER*--^*:*  THEN  GUSUB  3690:G0T0  1970  'CREATE  CON  FILE 
20"'0  beep:  GOTO  2050 
2100  ' 

2:10  'CNC  CREATE  SUBROUTINE  W/GRARHICS  ADOPTED  FROM  A  PROGRAM  CALLED  GRAPH  URITT 
EN  BY  JUSTIN  REDD 
:i:o  ' 

.:;o  FEv  off:  screen  o.i;  color  15.0.0:  width  40:  cls 

::-0  GOSUB  3630 
::'’0  SOTO  2160 
7 1:0  CLS 
:l  0  SCREEN  O.I 
.I'-O  COLOR  7 

:i  0  LOCATE  2.6.0:  PRINT  'Grsphics  Utilities* 

■)  lqla'E  5.6.0:  -'RInt  *1  -  aoo* 

'  20'  .^'E  6.6.''-:  f'PINT  *2  -  AlO* 

J-  0  L'j.A'C  7.6-0*  fRINT  *3  -  A20* 

"7  :■  L  'f'A‘E  9.4.';  PRINT  *4  -  APPLE  DO'JNLOAI'EP  * 

::■  /  L2' 4  E  K-i-:-:  ='RInt  ’esc  -  E'^it  graphic  utilities* 


.  ■  .  =  GOTO  1150 

::.. .  -■  ljcio  iro  Ei'fE  if  ansueft  ■- ■  ■'-■•  goto  i:'’o 

..  >  I  1  -rF.-INTthOXF-ijCHFI  ( 1  M  M' •  'TURN  ON  PORT  4  SO  WILL  INITIALIZE  FASTER 

::.o  fORT^.=i  ra  4 

n  o  ■!ti'.rESGlt  =  CHRt(2)  +  RIGHT»(STR*(P0RTZ>»1) 

!:■  0  F  Rlf,  r  »rUXFZ»MUXMESGl$i 
1210  PF INT'INITIALIZING  PORT'iPORTX 

'  I  l2;o  FOR  XZ  =  1  10  11 :  INPUT  ♦MUXFZ»A$:NEXT  'load  in  menu  FROM  MUX 

1  1270  PRINT  ♦MUXFZ»'2n  'CHOOSE  CHANGE  BAUD  RATE  OPTION 

12-0  FOK  XZ  =  1  10  8: INPUT  ♦MUXFZ.AitNEXT 

12- 0  PRINT  ♦MUXFZ»‘5‘;  'SELECTS  BAUD  RATE  OF  A800  FOR  PORT 
1260  FOR  XZ  =  1  TO  lltINPUT  ♦MUXFZ.ACNEXT 

12‘’0  PRINT  ♦MUXFZfMS  'QUITS  CONFIGURATION  MENU 
;  12-:0  next:  INPUT  ♦muxf%,a$  'get  last  menu  response 

IZ-O  READY$  =  *REAItY‘  P  CHRKIO) 

IZ'.'O  BADt  =  'BAD‘  +  CHRtdOl 
1310  OKt=*OK’  P  CHRi(lO) 

1320  RETURN 
1330  ' 

1362 

*  1334  ' 

13- 0  'PROCESS  TEMPORARY  FILES 

>  1350  ' 

1352 

!  1354  ' 

1360  OPEN  ’O* .♦TEMPFZ. 'PROCONT.BAT*  tCLOSE  *TEMPFZ  'NULIFY  CONTENTS  OF  CONTINUAT 
ION  BATCH  FILE 
13V0  ' 

i  1390  ON  ERROR  GOTO  1940 

I  13'’0  OPEN  •I’itTEMPFZ.'PROCTEMP.TEX' 

HOO  IF  EOF(TEMPFZ)  GOTO  1410  ELSE  INPUT  ♦TEMPF%»PRTNUMBitC0NFILE**PRTNUMB4P' ,C0 

n*:goto  1420 

1410  ON  ERROR  GOTO  OICLOSE  ♦TEMPFZ '.RETURN  'NO  DCLASS  FILES  TO  POST  PROCESS 
1420  CLOSE  ♦TEMPFZ 
1430  ON  ERROR  GOTO  0 

1440  OPEN  'O'.tTEMPFZ. 'PROCTEMP.TEX'ICLOSE  tTEMPFZ  'NULIFY  FILE  CONTENTS 
1450  CLS:PRINT*PUST  PROCESSING  DCLASS  FILE* 

1460  OPEN  •r»#TEMPFZ»*FDC.PRT* 

1470  PR0CER1Z=1 

f  1490  INPUT  ♦TEMPFZ. INLINE*  'GET  NEXT  PROCESS 

14^0  INPUT  ♦TEMPFZ. EXTRACRl*  'BLEED  OFF  EXTRA  CARRIAGE  RETURNS  INSERTED  BY  DCLAS 


15':'0  IF  LEFT*(INLINE*.1)  =  ’  ‘  THEN  INLINE*=MID*(INL1NE*.2)  tGOTO  1500  'STRIP  LEADI 
NG  SPACES 

15' 0  GOSUB  5400  'STRIPS  NODE  NUMBER  INSERTED  BY  THE  DCLASS  MAINLINE 
1520  GOSUB  5400  'GET  FIRST  PARAMETER 
1530  FPINT*,*. 

15-10  IF  P'P0CER1Z=1  THEN  PR0CER1Z=0;  IF  VAL<PARAM*)=0  GOTO  1710  ELSE  GOTO  1480  'TR 
EE  TkAUEkSAL  flag  IS  OFF.  NO  CNC  DATA  WAS  GENERATED 
1550  P AfAMIDZ=UAL(PARAM*)  'GET  PARAMTER  ID  NUMBER 

15o0  IF  FARAMIDZ=90  THEN  GOSUB  ISZOtGOfO  1480  'READ  IN  PART  DIMENSIONES 

15'0  :F  PARAMIDZ=<’9  GOTO  1600  'FINISHED  LOADING  CNC  DATA  PARAMETERS 

15CU  .-OSUB  5400:iNPARAM*(PANAMIDZ)=PARAM*  'SAVE  PARAMTER  IN  PROPER  LOCATION 

15'0  GOTO  1480  'PROCESS  NEXT  PARAMETER 

16  0  SEND  PARAMTEPS  TO  APPLE 

n-0  F-'i-AM*(1.2)  =  INPARAM4(l)  'PART  NAME 

mo  iiARAh*(2.1)  =  INPARAM*(2)  'PART  NUMBER 

mo  PRTF  amLY*  =  INPAPAM*(3)  'PART  FAMILY 

nn  .JLPFDIAr*  =  INPAKAM*(4)  'NUMBER  OF  DIFFERENT  DIAMETERS 
.  '■^.r  i«  (  12,  1  }  =  INPARAM*(5)  'FEED  RATE 
'  ■•■■■“■(  12-2'  =  INPAF:AHM  _.)  'CUT  DEPTH 

'  i  6FAMM:'’'  'STOCK  diameter 

'  .  -  1  ■  ■■ .  -An* V  'Si'OLK  LE'IGTH 

'F  .'".  -.O  I ''''PLG-' 5'>'  -OUTINE 


r  *  2 


r.j‘  TP2L 


:  -  :i  r  T-nf  <  Iri.n  NUr.FE?:  OF  FFOCEtS  FLANS  TO  IE  EXECUTED  AT  SAht  TINE  IE’! 

.  •  -  •. .'ID:'.  +  1  'COnnUNICATION  FILE  NUMDEF 

i.'.  TE-i:  F:.  =  nU>F:'M  •  IENFGFAKY  file  and  rtlSCELANEAOUS  FILE  NUMDER 
i.:  TENI  F2:i  =  TEnFF%  +  l  ’SECOND  TENFORART  FILE  NUMBER 
620  J0BbRUNor.  =  0  'NUMBER  UF  JOBS  RUNNING  COUNTER 
6-C  DIM  RSTATUSZIMAXJOBSZ)  'RUNNING  STATUS  OF  EACH  JOB 

6':0  nAySEQ;:=3  'max  number  of  process  steps  in  DIRECT  SEQUENCE  FOR  A  PARTICULAR  M 
AlHINE 

6i0  PRINT:PRINT'MAXIMUM  number  of  processes  for  one  machine  in  SEQUENCE  WITH  THE 
HO.D  FLAG' :PRINT*0FF  IN  THE  SAME  PROCESS  PLAN  IS* f MAXSEOX-1 
670  MAXQUE£%=MAXJOBSZ  *  MAXSLQZ  'MAX  NUMBER  OF  QUES  FOR  EACH  MACHINE 
660  NUMBMACH7.=8  'NUMBER  OF  MACHINES 
6^0  PRINT :PRINT*C0DE  number  for  EACH  MACHINE:* 

700  tab::==5 

710  PRINT  SPC(TABZ)i*l  IS  STACKER* 

720  PRINT  SFC;TAB7.)i*2  IS  MINI-ROBOT* 

730  PRINT  SPC(TAB7.)  ?  *3  IS  BYU  ROBOT* 

7«0  PRINT  SPC(TAB7.:  .'4  IS  TOYO  LATHE* 

7S0  PRINT  SPC(TABX);'5  IS  EMCO  LATHE* 

760  PRINT  SPClTABZ) > *6  IS  POLAR  MILL* 

770  PRINT  SPC(TAB7.)i*7  IS  WETOFF  MILL* 

760  PRINT  SPC(  fAB7.)  ;  *8  IS  PUNCH* 

7F0  DIM  J0DSRUNG7.(NUMBMACHZ)  'STATUS  OF  EACH  MACHINE 
JG'J  rtAXRARAM;'.  =  7  'GKEAlEST  NUMBER  OF  PARAMETERS 

010  DIM  MACHINEQUE»(NUMBMACHXiMAXQUESX»MAXPARAMX>  'CREATES  A  QUE  FDR  EACH  MACHIN 
E.  UILl  hold  PARAMETERS  NECESSARY  TO  RUN  MACHINES 
620  HLD:'=2  'POSITON  in  array  of  process  hold  flag 

830  DIM  TEMPKMAXPARAMZ)  '  lEMPRARY  HOLDING  ARRAY  FOR  MACHINE  QUE  PARAMETERS 
840  DIM  MQPARAMSX(NUMBMACHZ)  'PARAMETERS  NEED  FOR  EACH  MACHINE  IN  THE  DUE  NOT  IN 
CLUDING  THE  1ST  RO  2ND  PARAMETERS 

830  MQPARAMS2(1)=3  'NUMBER  OF  PARAMETERS  USED  FOR  STACKER 

8i0  M'.,PARAMS7.(2>  =  5  'NUMBER  OF  PARAMETERS  USED  FOR  MINI  ROBOT 

8~0  MQPARAMS%<3)=3  'NUMBER  OF  PARAMETERS  USED  FOR  BYU  ROBOT 

880  MQPARAMSZ(4)=3  'NUMBER  OF  PARAMETERS  USED  FOR  TOYO  LATHE 

890  M0PARAMS%(5)=3  'NUMBER  OF  PARAMETERS  USED  FOR  EMCO  LATHE 

900  M0PARAMSr.(6)=3  'NUMBER  OF  PARAMETERS  USED  FOR  POLAR  MILL 

910  MQPARAMSZ{7)=3  'NUMBER  OF  PARAMETERS  USED  FOR  WESTOFF  MILL 

910  HQPARAMSr,(8)=3  'NUMBER  OF  PARAMETERS  USED  FOR  PUNCH 

930  ‘0  IS  USED  TO  SHOW  END  OF  PROCESS  CON  FILE 

9^0  DIM  NQNEXTZ(NUMBMACHZ)  'HOLDS  NUMBER  OF  NEXT  POSTION  IN  QUE  TO  BE  FILLED 
930  DIM  MQPOINTER%(NUMBMACHZ)  'HOLDS  NUMBER  OF  NEXT  POSITION  INOUE  TO  BE  EXECUTE 
D 

960  FOR  C0UNTER%=1  TO  NUMBMACH%;MQNEXT%<C0UNTER2)=1;MQP0INTERZ(C0UNTERZ>=1 INEXT 
'INITIALIZE  QUE  POINfERS  TO  1ST  QUE 

970  DIM  HC!LDING%(NUMBMACH7.»MAXJ0BSr.»2)  'MACHINE  HOLDING  POINTERS 
920  HJ0B7.=  1  'POSITION  IN  ARRAY  OF  JOB  FLAG 

990  HQL'E'/.=  2  'OF  QUE  POINTER 

1000  DIM  HELD%(NUMBMACHZ)  'HOLDS  JOB  NUMBER  WHEN  A  MACHINE  IS  BEING  HELD  IDLE  BY 
ANOTHER  MACHINE  THAT  IS  WAITING  FOR  IT  TO  BE  READY 
1010  DIM  P£TATUS%(63)  'STATUS  FLAG  OF  EACH  BIN  IN  STACKER 
1020  DIM  rSTATUS::(2)  'STATUS  FLAG  OF  2  TRAYS 

1030  DIM  JSTATUS%(NUMBMACH%»2)  'JOB  STATUS  OF  EACH  MACHINE.  2  JOBS  FOR  STACKER 
lO’C  QL'ECHECKZ=1  'WILL  START  WITH  MACHINE  I  WHEN  CHECKING  MACHINE  QUES 
lOlO  DIM  POF:T4(NUMFMACH7.)  'HOLDS  PORT  NUMBER  FOR  EACH  MACHINE 

10:0  fkint:print*multipurt  controller  port  allocation;* 

1C~0  FORTt(:)=*l* ;pRINT*PORT  FOR  STACKER  IS  1*  'PORT  FOR  MACHINE  1  -  STACKER 

1070  P0RT$(2?=*2* JPRINT'PORT  FOR  MINI  MOVER  ROBOT  IS  2* 

lO'^O  P0RT1i(4)  =  *3*  :PRINT*P0F;1  FOR  TOYO  LATHE  IS  3* 

ll'O  COLUR  4.0  :pF:INT:FkIMT  ‘caution  -  If  atove  values  are  exceeded  eroarem  navi 
-■  r . ; • 


1 1 .  0  I '  I  '  I  AL I ZE 


•  - 1  ■:  0  •  'J .  '  .  7  .  CS4000  .DS400C'* 

. ■ :  1  ' y ' •  icclor  o 


AS  ♦ml'XF'.:print:pf:int*does  m'jltiplexo 


t  i  t  »  «  t  t  *  M  >  t 

110  ♦  PART  RROCEESOF;  BY  GREGORY  J.  RETO  » 

IIO  ■*  * 

liO  '«  THIS  PROGRAH  CONTROLS  THE  CREATION*  * 

i;0  *  rtUDIFlCATION  AND  EXECUTION  OF  PART  PROCESSES  * 

ILO  '*  * 


1C2 
I'.A  ' 

IcO  '  This  prosrsii  is  the  eein  process  controllina  proarae.  It  runs  in 
170  '  3  nodes*  create*  modify  and  execute.  The  nodifa  portion  has  not  been 
ISO  '  inpleitiented  »et.  The  create  node  has  several  options.  You  can  create  a 
IPO  '  psrt  process  usina  the  araPhics  routines  written  in  basic  or  sou  can 
200  '  select  the  option  to  leave  basic  and  create  a  part  process  usina  the 
210  '  DCLASS  nainline  TREE.  Upon  reentrs  to  basic  the  file  created  bs  DCLASS 
220  '  is  postprocessed  and  a  .con  file  is  created  which  is  then  executable. 

222  ' 

223  '  The  execute  node  executes  process  control  files.  The  basic  ssntax  isS 

224  '  Pnachine  ♦>  <process  hold  code>  <Bachine  paranter  list>  <cr> 

225  '  The  prcaran  sets  up  a  oue  for  each  nachine.  Reouests  from  each  process 

226  '  beina  executed  are  placed  in  the  oue  for  that  nachine.  As  the  nachine 

22"^  '  becomes  available  the  next  item  in  it's  oue  is  sent  to  the  machine. 

220  ' 

210  'MAIN  BODY  OF  PROGRAM 
2'’0  • 

280  GOEUB  480  'INITIALIZE  CONSTANTS 
290  GOSUP  1330  'PROCESS  TEMPORARY  FILES 
3C0  GOSUB  360  'GET  MODE  OF  OPERATION 
3C4  '  GO  INTO  MODE  SELECTED 

310  ON  MODE*/.  GOSUB  19"0 * 440 . 3810  'CREATE*M0D1P YiEXECUTE  ROUTINES 
320  UOrO  300  'GET  MODE  SELECTION  AGAIN 
330  ' 

350  ' 

360  'GET  MODE  OF  OPERATION 
370  ' 

3F0  CLSIPRINT  SPC ( 19 ) 5  *  MODES  OF  OPERATION  FOR  PART  PROCESS  PLANS* tPRINT********* 

2°0  PRINTIPRINT'I.  CREATE  A  PROCESS* IPRINTJPRINT'Z.  MODIFY  A  PROCESS* IPRINTIPRIN 
T*3.  EXECUTE  PROCESS **. ANSUERt=  *  * 

400  LOCATE  20:PRINT*CH00SE  1-3* J ANSUERt=INKEYi:iF  ANSUER»=**  THEN  GOTO  400 
410  MODE:;  =  UAL(ANSUERt)  IIF  MUDEZ  <=  0  OR  M0DE7.  >3  THEN  BEEPIGOTO  400 
420  RETURN 
430  ' 

4.^0  'MODIFY  ROUTINE  NOT  IMPLEMENTED  YET 
420  RETURN 
4:0  ' 

4c 2  'tt »*»*»»»»*»»? »*»»****»*»*»»*»«*» 

4:4  ' 

^  0  'Im^italize  and  display  constants 

420  ■ 

4 , 4  *»*»»» *»»*«***»«***»**»**** 

aOi  ' 

4'  0  iJIDTH  80;SCREEN  OICLS 
500  UFlIUN  BASE  1 

2  10  [CBC0*4=O:  PRINT 'DEBUG  MODE  ==>*JDEBUG5C 

2..0  ' 

2'0  "cmables  used  by  create  routine 
2  0 

"  0  :  ‘^  AF  AMT  (12' 2  ) 

2 .  :c*.  ne  ■  frocess  flap 

:  rF-T'^NE  READY  FOR  NEST  STEP  FLAG 

2  'MAXIMUM  NUMBER  OF  JOBS  RUNNING  AT  ONE  TIME 


DESIGN  AND  MODIFICATION 


EXECUTION 


I 


2190  REM  *  HOOK  BACK  ONE  INCH 

2200  REM  t*ttt*tt(t**t***t*tt**ttttttt 

2210  REM 

2220  CY3*="P  1600" 

2230  FOR  I  =  1  TO  2 
2240  Q*=U5R3(CY3») 

2250  NEXT  1 
2260  RETURN 
2270  REM 

2280  REM  ttttt*ttt*t*****tt*t***tttt 

2290  REM  »  HOOK  ALL  THE  WAY  BACK 
2300  REM 
2310  REM 

2320  CY3*="P  16000" 

2330  FOR  I  =  1  TO  2 
2340  D*=USR3(CY3*) 

2350  NEXT  I 
2360  RETURN 
2370  REM 


1630  REM  »  GOTO  BIN  GOOD I NATES 
1640  REM  ttt***t*t******tt*t*t*t**tt 

1650  REM 

1660  CY1*="P"  STR*(BIN(XBIN,  1)  ) 

1670  IE  OPERATION  =  1  THEN  CY2*=“P"  +  STR* (  BIN(XBIN,2)  +  385  ) 
1680  IF  OPERATION  =  O  THEN  CY2*=“P“  ■*-  STR*  (  BIN(XBIN,2)  ) 

1690  FOR  I  =  1  TO  2 
1 700  Q*=USR 1 ( C Y 1 * ) : Q*=USR2 ( CY2* ) 

1710  NEXT  I 
1720  RETURN 
1730  REM 

1740  REM  rtt*t*t*t*t****t**t*tt**t*t 
1750  REM  «  GOTO  TRAY  COORDINATES 
1760  REM  »«««««»»««««»*««»««*«**»««» 

1770  REM 

1780  CY1*="P"  +  STR* (TRAY (XTRAY, 1) )  _ 

1790  IF  OPERATION  =  1  THEN  CY2*=“P“  +  STR* (TRAY ( XTRAY, 2) ) 

1800  IF  OPERATION  =  0  THEN  CY2*=**P"  +  STR*  (  TRAY  ( XTRAY,  2)  +  385  ) 
1810  FOR  I  =  1  TO  2 
1 820  Qt =USR 1 ( CY 1  * ) : 0*=USR2 ( CY2* ) 

1830  NEXT  I 
1840  RETURN 
1850  REM 
1860  REM 

1870  REM  *  HOOK  FORWARD 

1880  REM  tttt***ttt***tt*tttt*tt*tt* 

1890  REM 

1900  CY3*="P  0" 

1910  FOR  I  =  1  TO  2 
1920  Q*=USR3(CY3*) 

1930  NEXT  I 
1940  RETURN 
1950  REM 

1960  REM  ttttttttttttttttttttttttttt 

1970  REM  t  ENGAGE  HOOK 
1980  REM 
1990  REM 

2000  IF  FLAG*  =  "BIN"  THEN  CY2*="P"  +  STR* (  BIN(XBIN,2)  > 

2010  IF  FLAG*  =  "TRAY"  THEN  CY2*="P"  +  STR* (  TRAY (XTRAY, 2)  > 

2020  FOR  I  =  1  TO  2 
2030  Q*=USR2(CY2*) 

2040  NEXT  I 
2050  RETURN 
2060  REM 

2070  REM  tt***t*tt*t****tt*t*t**ttt* 

2080  REM  *  DISENGAGE  HOOK 

2090  REM  t*****t***t*tt******tt***tt 

2100  REM 

2110  IF  FLAG*="BIN"  THEN  CY2*='*P"  +  STR*  (  BIN(XBIN,2)  +  385  ) 

2120  IF  FLAG*="TRAY"  THEN  CY2*="P"  +  STR* (  TRAY ( XTRAY, 2)  +  385  > 
2130  FOR  I  =  1  TO  2 
2140  Q*=USR2(CY2*) 

2150  NEXT  I 
2160  RETURN 
2170  REM 

2180  REM  «««***«**«**««»»«««»««**»«» 


« 


1050  REM 

1060  REM  *ttttt***tt***tt*$t*t***t** 

1070  REM  «  GOTO  OPERATION#  ROUTINE 
1080  REM  tttt*t***tt****tt*tt*t*tt** 

1090  REM 


^  ^  XTRAY  <  >  2  THEN  PRINT  -BAD  TRAY#  PASSED" : GOTO  760 

1110  IF  XBIN  >  63  OR  XBIN  <  11  THEN  PRINT  “BAD  BIN#  PASSED" : GOTO  760 
11-^0  N*=RIGHT»  (STR*  (XBIN)  ,  1 ) 

1130  IF  N*  <>  and  N*  <>"2"  AND  N*  <>  "3"  THEN  PRINT  "BAD  BIN#  PASSED": GOTO 


1140  ON  OPERATION  +  1  GOTO  1150,1310,1470 
1150  REM 

1160  REM  «  RETURN  BIN 

1170  REM 

IISO  REM 

1190  GOSUB  1730 

1200  GOSUB  1860 

1210  FLAGt="TRAY" 

1220  GOSUB  1960 
1230  GOSUB  2270 
1240  GOSUB  1620 
1250  GOSUB  1860 
1260  FLAG»="BIN" 

1270  GOSUB  2070 
1280  GOSUB  2170 
1290  GOTO  760 
1300  REM 

1310  REM  *tt**tt*tttt**t*ttt***ttt** 

1320  REM  t  RETRIEVE  BIN 

1330  REM  *****t*tttt*t***tt*t**tttt* 

1340  REM 
1350  GOSUB  1620 
1360  GOSUB  1860 
1370  FLAG*=‘'B1N" 

1380  GOSUB  1960 
1390  GOSUB  2270 
1400  GOSUB  1730 
1410  GOSUB  1860 
1420  FLAG*="TRAY" 

1430  GOSUB  2070 
1440  GOSUB  2170 
1450  GOTO  760 
1460  REM 
1470  REM 

1480  REM  *  TERMINATE  PROGRAM 
1490  REM 
1500  REM 

1510  CY1*="P  0":CY2»="P  16795" ; CY3»="P  O" 
1520  FOR  1=  1  TO  2 
1530  Q*=USR1 (CYlt) 

1540  Q«=USR2(CY2») 

1550  NEXT  I 

1590  HOME: PRINT  "STACKER  PROGRAM  TERMINATED" 
1600  PRINT; PRINT: END 
1610  REM 
1620  REM 


« 


4 


560  TRAY (2, 1 > =2025: TRAY (2, 2) =16350 
570  REM 

580  CY*="I,R  253, S  1,F  1,A,P  1,P  0“ 

585  MOTORl*=”I,R  251,5  1,F  1,A,P  1,P  O" 

586  MOTOR l«=MOTORl*+“" 

590  CY*=CY*+"" 

600  C Y 1  ♦=  *•  X  X  X  ••  +  "  "  :  CY2*=  '•  X  X  X  ■•  +  *•  •• :  C Y3*=  "  X  X  X  " + ” 

610  FOR  I  =  1  TO  2 
620  Q*=USR1 (MOTORl*) 

630  Q*=USR2<CY*) 

640  0*=USR3<CY*) 

650  NEXT  I 
660  REM 

670  REM  ttttttttttttttttttttttttttt 

680  REM»MOVE  CARRIER  TO  TOP  AND  REINITIALIZE 

690  REM  tt*****t*tt*t**ttttt**tt*tt 

700  REM 

715  M0T0R2*="N  16795, -,G, A"  ’MOVE  CARRIER  TO  TOP" 

716  Q*=USR2(M0T0R2*) 

720  HOOK*="N  1600, -,G, A” 

724  0*=USR3(HOOK»)  ’MOVE  HOOK  FORWARD  ONE  INCH  AND  SET  AS  HOME  POSITION 
730  GOSUB  2200  ’MOVE  HOOK  BACK  ONE  INCH 

745  Q*=USRa<IBM*) 

746  W*="WHAT?“ 

747  Q*=USR7(W») 

750  REM 

760  REM 

770  REM  *  INPUT  PARAMETERS  FROM  IBM 

780  REM  *$*****t*tt*ttt***t*t*tt*t* 

790  REM 

800  Q»="XXX"  +  . . . . XXX " 

810  0K*=  OK  "  +CHR*  (13):  WH AT*=  "  WHAT?  "  +CHR«  (13):  RE ADY*=  "  READY  ”  +CHRt  (13) 

815  □♦=USR7< READY*) 

820  PRINT  "OPERATION#  = 

840  Q»=USR8 (OPERATION*) : PR I NT  OPERATION* 

850  IF  OPERATION*  <>  "0“  AND  OPERATION*  <>  "1”  AND  OPERATION*  <>  "2”  THEN  PRINT 
"INVALID  0PERATI0N#":Q*=USR7(WHAT*) :PRINT:GOTO  820 
860  OPERATION  =  VAL  (OPERATION^?  ) 

870  IF  OPERATION  =  2  THEN  GOTO  1470 
880  Q*=USR7(0K*) 

890  PRINT  "BIN#  =  "; 

900  Q*=USRB(XBIN*) :PRINT  XBIN* 

910  DATA  11,12,13,21,22,23,31,32,33,41,42,43,51,52,53,61,62,63 
920  FOR  I  =  1  TO  18 
930  READ  X 

940  IF  VAL(XBIN*)=X  THEN  RESTORE:  GOTO  1000 
970  NEXT  I 

980  RESTORE: Q*=USR7 (WHAT*) : PRINT  "BAD  BIN#" : PRINT: GOTO  890 
1000  XBIN=VAL(XBIN*) 

1005  Q*=USR7(0K*) 

1010  PRINT  "TRAY#  =  "; 

1020  Q*=USR8(XTRAY*) : PRINT  XTRAY* 

1025  IF  XTRAY*  <>  "1"  AND  XTRAY*  <>  "2"  THEN  PRINT  "BAD  TRAY#" : PRINT: Q*=USR7 (WH A 

T*):GOTO  1010 

1030  XTRAY=VAL (XTRAY*) 

1040  PRINT:PRINT  " - ":PRINT 


( 


310  REM 

20  REM  »  STORAGE  AND  RETRIEVAL  SYSTEM  CONTROLLER 
30  REM  «  -BYU  MIN I -CAM  LAB- 

40  REM  *  ORIGINAL  APPLESOFT  VERSION  BY  DAVE  JE5PERS0N 
50  REM  t  MICROSOFT  PROGRAM  BY  JUSTIN  REDD 
hO  REM  »  OCTOBER,  1983 
70  REM  « 

80  REM  »  WHEN  RUN,  THIS  PROGRAM  WILL  WAIT  FOR  3 

90  REM  t  PARAMETERS  TO  BE  PASSED  TO  IT  THROUGH 

100  REM  *  THE  RS232  LINK.  THESE  THREE  PARAMETERS 

110  REM  *  ARE  DEFINED  AS  THE  OPERATION#, BIN#,  AND 

120  REM  *  TRAY#.  OPERATION#  O  =  RETURN  BIN 

130  REM  »  OPERATION#  1  =  RETRIEVE  BIN 

140  REM  *  OPERATION#  2  =  QUIT  PROGRAM 

150  REM  * 

160  REM  *  TO  RUN  THIS  PROGRAM  CYDRIVER.HEX  AND  COMM. HEX 

170  REM  t  MUST  BE  LOADED  INTO  MEMORY. 

ISO  REM  * 

190  REM  ***t*t***tttt****ttttt**ttttttt**t*tt***t*t 

200  REM 

210  HOME: PR I NT  "  APPLE  STACKER  PROGRAM" : PRINT: PRINT" - 


220  PRINT: PRINT 
230  REM 

240  REM  »  LOAD  CYDRIVER  AND  COMM 
250  REM 
260  REM 

270  C ALLER*= " STACKER . BAS " : CL I NE=300 : PRGM*= " X X X X " : SL I NE=999 :HFILE»="XXXX" 
280  COMMON  CALLER*, CLINE, PRGM*, SLINE, HFILE* 

290  CHAIN  "LOAD ASM. BAS" 

300  REM 

310  REM  t**t*t*t*ttttt**tttt*t*tt* 

320  REM  »  INITIALIZE 

330  REM  tttttt*t*tt**t*t***ttttt** 

340  REM 

350  DIM  BIN<63,2) 

360  DIM  TRAY(2,2) 

370  BIN (11, 1) =4085: BIN (11, 2) =16375 
380  BIN (12, 1) =4138: BIN (12, 2) =10750 
390  BIN (13, 1) =4138: BIN (13, 2) =4925 
400  BIN (21, 1) =61 40: BIN (21, 2) =16375 
410  BIN(22, 1)=6140:BIN(22,2)=10675 
420  BIN(23, 1)=6212:BIN(23,2)=4775 
430  BIN(31, 1 )=8200:BIN(31,2)=16375 
440  BIN (32, 1) =8269: BIN (32, 2) =10775 
450  BIN(33, 1) =8262: BIN (33, 2) =4875 
460  BIN (41, 1) =10250: BIN (41, 2) =16375 
470  BIN (42, 1) =10300: BIN (42, 2) =10750 
480  BIN (43, 1) =10312: BIN (43, 2) =4925 
490  BIN (51, 1) =12287; BIN (51, 2) =16375 
500  BIN(52, l)=12312:BIN(52,2)=10a00 
510  BIN(53, 1) =12344: BIN (53, 2) =4850 
520  BIN (61, 1) =14320; BIN (61, 2) =16375 
530  BIN (62, 1) =14337; BIN (62, 2) =10775 
540  BIN(63, 1)=14350:BIN(63,2)=4875 
550  TRAYd,  1)=0;  TRAY  (1,2)  =16350 


>  «: *  >.*  I-.*  ^  ^  v_- 


»  fl.  -p^ 


'  ■■■'T  Tiro  I'C 

1  V/  _'  ■»**»»»<■**»  ^fl 

39  E  4  ' 

29ii  'CLEAR  SCREEN 
3993  ' 

3990  CLS:PRINT  SRC<30); 'EXECUTE  PROCESS  PLAN* ;PRINT'»»**»»«*»*«*«**»*»*«******»* 
*»)C»*»«»«|;)([»****»*»»»**»»»»*t»*»»»»»**»»*****»****»' :  RETURN 

4000  ' 

4010  'CHECK  FOR  OPRERATOR  INPUT 
4020  ' 

4030  PRINT:PRINT:C0L0R  AiOIPRINT'DO  you  want  make  operator  INPUT  ?  (YES  IS  ANY  K 
EY)'  :COLOR  7>o:print 
4040  '  FOR  H0LD%=1  TO  500 

4050  A$=INKEY$;iF  A$  <>  "  GOTO  4100  'INITIATE  NEW  PROCESS  PLAN 
4060  IF  J0BSRUNGZ=0  GOTO  4050 
4070  'NEXT 

4080  NEPR0CZ=0:RETURN  'NO  NEW  PROCESS 
4090  ' 

4100  'GET  OPERATOR  INPUT 
4110  ' 

4120  GOEUB  3990;PRINT:FILES  'C.CON'  'CLEAR  SCREEN 

4130  PRINT:PRINT:PRINT  'enter  a  part  NUMBER  TO  EXECUTE' tPRINT  SPC(TABZ) J ' (OR  C  T 
0  cancel;  ".PRINT  SPC(TABZ)}'(OR  Q  TO  LEAVE  EXECUTE  ROUTINE  AND  RETURN  TO  MAIN  ME 
NU'':PR:NT  SPC(TABZ) » ' (OR  f  to  fix  a  process  where  the  mux  missed  a  finished  sig 

NAD  • 

4140  PRINT'.INPUT  '  ===>' .ANSWER* 

4150  IF  ANSUER*='C'  THEN  RETURN  ELSE  IF  ANSMERi='Q'  THEN  EXITEXCTZ=1 '.RETURN 
'DO  EXITING  COMMANDS 

4160  IF  ANSUER»='F'  THEN  PRINT5PRINT  'ENTER  NUMBER  OF  MACHINE  FINISHED  OR  C  TO  C 
ANCEL':PRINT  SPC(TAPZ) J ' <USE  proper  machine  code  NUMBER  OR  PROGRAM  WILL  CRASH)'! 
input  •  ===>'. ANSWER*: IF  ANSWER*='C'  GOTO  4080  ELSE  MFIXX=1 

4170  IF  MFIXr.=  l  THEN  MACHINEr.=VAL( ANSWER*) '.IF  JOBSRUNGZtMACHlNEZ)*0  THEN  PRINT'N 
0  JOBS  RUNNING  ON  MACHINE' IFOR  H0LD'/:=1  TO  lOOO'.NEXT'.GOTO  4110  ELSE  60SUB  4570:RE 
TURN  'EMEULATE  A  FINISHED  SIGNAL  (CNTRL-A)  COMING  IN  FROM  APPLE  THAT  MUX  MISSED 
4180  'INITIATE  NEW  PROCESS 

4190  IF  JOBSRUNGZ  =  MAXJ0BS2  THEN  PRINT!PRINT'MAXIMUM  NUMBER  JOBS  OF* 5MAXJ0BSZ! ' 
IS  ALREADY  RUNNING".  INPUT  'TYPE  RETURN  TO  CONTINUE' fH0LD*:NEPR0CZ=0:RETURN  'MAX 
NUMBER  OF  JOBS  ALREADY  RUNNING 
42(0  FOR  C0UNTERZ=1  TO  MAXJOBSZ 

4210  IF  PSTATUSZ'COUNTERZ)  =  0  THEN  J0BZ=C0UNTERZ;RSTATUSZ( J0BZ)=1 ;COUNTERZ=MAXJ 
0B9Z  'SETS  RUNNING  STATUS  FLAG 
4220  NEXT 

4230  PRTNL'MB*(  JOBZ)  =  ANSWER* 

42'-0  J2BSRUNGZ= JOBSRUNGZ  +  1  'INCREMENT  NUMBER  OF  JOBS  RUNNING 
4250  ON  ERROR  GOTO  4300 

4;'0  OfEN  'I' .*308:'..  (PRTNUMB*( JOBZ)  +  '.CON') 

42"’0  NEPR0CZ  =  1  'SET  NEW  PROCESS  FLAG 
42C0  ON  ERROR  GOTO  0 
42^0  RETURN 

43  0  'FILE  DOESN'T  EXIST 

•^310  PRINTtPRINTlPRINT'AN  EXECUTABLE  PROCESS  PLAN  FILE  DOESN'T  EXIST  FOR  PART  NU 
MBSR  'PRTNUMB*( JOBZ) 

43:0  R'^INTJPRINT'TYPE  A  TO  TRY  AGAIN' 

43:0  ANSyER*=INKEV*;iF  ANSWER*="  GOTO  4330 

43;0  IR  ANSUER5='A'  THEN  RESUME  4100  'GET  OPERATOR  INPUT 

4350  30SUB  3990 

43f0  CLOSE  ♦JOBZ; JOBSRUNGZ=JOBSRUNGZ  -  1 tRSTATUSZ ( JOBZ )=0 : NEFR0CZ=0 t RESUME  4370 
'N'-'  NEW  PROCESS.  RESET  FLAGS.  RESUME  NECCESARY  TO  END  ERROR  TRAPPING  ROUTINE 
43'0  RETURN 

-nso 

43'0  ■''•’DL  fOR  rACHINE  FINISHED 
J  ■  ' 

r  r. I'lc  for  a  machine  that  finished  last  RROCESS' 
jj- )  'r-iscK  FCR  Machine  fims'-'CIi 


-r  -r  2  THCN  rPIf-T  ♦  MUXFZ , CHR* ( 1 )  +  •O’:  'ECoi,  DISCOHNECT  CURRENT 

■:  -i^-L  IF  ,.0  f1F,CHINE  HAS  ^^INISHED 
-  -■  to  lO'jOtrJEXT  ’WAIT  TO  FILL  PUFFER 

-■>-  IF  '.  ;ir  ihUXF:',)  F  2  THEN  PRINT’NO  MACHINES  FINISHED' tGOTO  4630  'NO  MACHINES  R 
tCLrUL'  FINISHED 

44:0  r>Urt=INpUTi(LQC(MUXFX) .♦MUXFX)  'GET  MUX  RESPONSE 
44-0  RRINT'MUX  HAS  ==>’»MUXt 
44S0  FOR  P0RT%=1  TO  4 
44°0  PORT$^RIGHT$(STP$(RORTZ) il ) 

4000  X=INSTR(MUX»tFOPT») 

4510  IF  X  <>  0  GOTO  4550 
4520  NEXT 

4530  'IF  FRSTCHECK%=1  THEN  FRSTCHECK=0 IGOTO  1250  'START  SECOND  CHECK  OF  MUX  LOOK 
ING  FOR  MACHINES 

4540  GOTO  4630  'NO  MACHINES  RECENTLY  FINISHED 
4550  PRINT-MACHINE  READY  ON  PORT  ‘JPORTX. 

45o0  ON  PORT%  GOSUD  4930. 4930i4930. 4930  'FIND  MACHINE  REQUESTING  PORT 
4570  IF  MQP0INTERX.(MACHINE5:)=1  THEN  J0P%=VAL(HACHINEQUE*(MACHINEX.MAXQUES5:.  1 ) )  E 
LSL  J0P%=VAL(MACHINEQUE$(MACHINEX..MQP0INTER2(MACHINEZ)  -  1.1))  'FIND  JOP  MAS  LAS 
T  WORKING  ON 

4560  MACHRDYZ=1  'SET  MACHINE  READY  FLAG 
4590  NONEFIN7,=0  'TURN  OFF  NO  PROCESSES  FINISHED  FLAG 
4600  JOPSRUNGZ<MACHINE7.)=0  'TURN  OFF  MACHINE  BUSY  FLAB 
4610  RETURN 
4620  ' 

46:0  'CHECK  FOR  MACHINE  QUE  READY 
4640  ' 

4650  STFCHECK%=QUECHECK‘/: 

4660  IF  DEPU6Z=2  THEN  PRINT ‘ QUECHECKZ  ==>• 5QUECHECKZ 

4670  IF  MOFOINTER%(QUECHECKZ)  =  MQNEXTZ(QUECHECKZ)  GOTO  4780  'CHECK  FOR  WAITING 
QUIS 

4680  IF  J0PSRUNG?;(QUECHECK7.>  =  1  GOTO  4780  'MACHINE  BUSY 
4690  'A  QUE  IS  READY  AND  MAYBE  A  MACHINE 
4700  MACHINEZ  =  QUECHECK7. 

4710  J0P:1=VAL<MACHINEQUE4(MACHINEZ.MQP0INTERZ<MACHINEZ)»1)) 

4720  QUECHtCK/:=QUECHECKZ+l  'SETUP  TO  CHECK  NEXT  MACHINE'S  QUE  AFTER  THIS  ONE 
4730  N0NEFINZ=1 
4740  MACHRDYZ=1 

4750  PRINT  'CHECKING  QUE  OF  MACHINE' >MACHINE%> *  FOR  EXECUTABLE  PROCESS' 

4760  RETURN 
4770  ' 

47£0  'MACHINE'S  QUE  EMPTY 
4790  ' 

4600  QUECHECKZ=GUECHECKZ+1  'SETUP  TO  CHECK  NEXT  MACHINE'S  QUE  AFTER  THIS  ONE 
4810  IF  QUECHECKZ  >  NUMPMACHZ  THEN  QUECHECKZ  =  1 

4620  IF  STFCHECK-:  <>  QUECHECKZ  GOTO  4670  'CHECK  TO  SEE  IF  HAUE  CHECKED  ALL  MACHI 
NE£  QUES 

4830  'NO  MACHINES  OR  JOBS  ARE  READY  FOR  NEXT  PROCESS 
4840  MACHRPYZ=0 
4650  RETURN 
4660  ' 

46V.J  'TURN  ON  PORT 

46C0  PRI'jT  ♦MUXr7;.CHR«<  1 )  +  POF:T«(MACHINEZ);  'TURN  ON  PORT 
4S’0  PPINT'FURT  • fPORr«(MACHINE%) f •  TURNED  ON* 

4-00  FOF  hcld:;=i  to  i50o:next:if  loc<muxf;')=o  then  print'hauing  problems  receiui 
NG  ‘^POM  PGkT  *  JF0PT*(MACHINE-;)  ;U0)0  4900  'wait  for  puffer  to  fill  WITH  GARBAGE 
Af  =  INFUT»(LOC(MU>FZ)  .♦MUXFZ)  'EMPTIES  PUFFER 
4'’:0  RE'^UPN 
40:0  ' 

'ONE  MACHINE  PER  PORT 

4O'.0  ' 

J-'.O  IF  THEN  MACHINE7;=1  'STACKER: 

jv'o  IF  "HEN  MACHINE’;  =  2  'MINI-RODQI 

IF  cl'T'.  =  :  TOfO  L-THL 

-r  i  FKI N  !■ '  EFF  .F:  IN  PORT 


riEN  GOTO  GGcO  'iT.-F.TING  NEW  PROCESS 

jFOINTE'-:.(rlMCHINE/.>  =  i  THtN  i- ARAn;;=n/iXQUESX  ELSE  FARAH/:=r,QFOINTEF;/'.'.(1ACHI 
lE'..  -  1  FINE  POSITION  IN  QUE  OF  LAST  PROCESS  EXECUTED 

Zj.j  if  VAL(hACHINE0Ut»lhACHINEX»PAF;AHX,2)>  =  0  THEN  PRINT  'NEXT  PROCESS  IS  ALRE 
AD.  IN  QUE': RETURN 

so'o  IF  eof(job;i>  then  jodsrung:i=jopsrung/;  -  i:rstatus%< jobj:)=o:close  jobz:machr 
DY:.  =  0:pRlNT’FlNISHEri  processing  part  number  •;PRTMUrtE»(JOB%):RETURN  'PROCESS  PLA 
N  FINISHED 

50E0  'GET  NEXT  PROCESS 

5090  INPUT  tJOBZf INLINE!  'GET  NEXT  PROCESS 

5100  INPUT  ♦J0B*/..EXTRACR1$  'BLEED  OFF  EXTRA  CARRIAGE  RETURNS  INSERTED  BY  DCLASS 
5110  IF  LEFT$(INLINEt.l)  =  '  *  THEN  INLINE!=MID> ( INLINE! » 2) 1  GOTO  5110  'STRIP  LEADI 
NG  SPACES 

5120  GOSUB  5400  'STRIPS  NODE  NUMBER  INSERTED  BY  THE  DCLASS  MAINLINE 
5130  'PRINT'NODE  ==>*;PARAM! 

5140  GOSUB  5400:MACHINEZ=VAL(PARAM!)  'GET  MACHINE  NUMBER 

5150  PRINT’LOADING  NEXT  PROCESS  FOR  PART  NUMBER  * IPRTNUMB! ( JOBZ ) 

5160  IF  H0LDINGZ(MACHINE2.  J0B%tHJ0B2)<>0  THEN  SWAP  HOLDING*/.(MACHINE%»  J0B%»HQUE2) 

»  MQNEXTZ(MACHINEZ)  'PUT  NEXT  PROCESS  IN  QUE  POSITION  THAT  WAS  SAVED  FOR  IT 
5170  MACHlNEQUE!<MACHINEZfMQNEXTZ(MACHINEZ)»l)=STR!(JOB%)  'SAVE  JOB  NUMBER  WITH 
PROCESS 

51E0  GOSUB  5400:PR0CH0LDZ=VAL(PARAM!)  'LOAD  PROCESS  HOLD  FLAG  FROM  FILE 
51'^0  MALHINEQUE!(MACHINEZ.MQNEXTZ(MACHINEZ)»2)=PARAh! 

5200  'LOAD  PROCESS  PARAMETERS  FROM  CON  FILE 

5210  PRINT'JOB  'fJOBZJ’  MACHINE' JMACHINEZi '  HOLD  FLAG  VALUE  IS' JPR0CH0LD2 
5220  FOR  PARAMZ=3  TO  MQPAF:AMSZ(MACHINE2)  +  2  '1ST  2  POSITINS  OF  CON  FILE  ARE  MAC 
HINE  NUMBER  AND  PROCESS  HOLD  FLAG.  THE  FOLLOWING  POSITIONS  ARE  FOR  PARAMETERS  F 
OR  THAT  MACHINE 

5230  IF  PARAMZ  >  5  THEN  INLINE!=EXTRACR1!  'DCLASS  INSERTS  A  LF  AND  CR  AFTER  THE 
5TH  PARAMTER  IT  OUTPUTS  AND  NEED  TO  GET  AGAIN 

5240  GOSUB  5400:MACHINEQUE!(MACHINEZfMQNEXT2(MACHINE2) .PARAH2)=PARAM! 

5250  PRINT'PARAM  * ' » PARAMZ-2 > '  IS  ' }MACHINEQUE!(MACHINEZ»MQNEXTZ(MACHINEZ) fPARAM 
2) 

5260  IF  ASCTPARAM!)  <  58  AND  VAL ( PARAM! ) =0  THEN  PARAM2=MQPARAMSX(MACHINEZ)  +  2  ' 

A  PARAMTER  OF  ZERO  SIGNALS  NO  MORE  PARAMETERS  FOLLOWING  FUR  THIS  PROCESS 

5270  IF  VAL(MACHINEQUE!(MACHINE%. MQNEXTZTMACHINEZ). PARAMZ) )=99  THEN  HAITFLAGZ=i: 

WAITPOSZ=PARAMZ 

5280  NEXT 

5290  IF  DEBUGZ  <>  0  THEN  INPUT  'TYPE  RETURN  TO  CONTINUE '. HOLD! 

5300  IF  HOLDINGZCMACHINEZr  JOBZfHJOBZ)  =  l  THEN  HOLDING’/.  ( MACHINEZ  f  JDBZ  fHJOBV. )  =0  'TU 
RN  OFF  FLAG  THAT  MACHINE  IS  HOLDING  BECAUSE  THE  NEXT  PROCESS  WAS  JUST  LOADED  FOR 
IT 

5310  IF  MAITFLAGZ=1  THEN  MACHH0LDING’/1=VAL(MACHINEDUE!(MACHINEZ»MDNEXTZ(MACHINEZ) 
fUAITPOSZFl)  )  'FIND  MACHINE  WAITING  FOR 

5320  MQNEXTZ<MACHINEZ)=MQNEXTZ(MACHINE'Z)  4  llIF  MQNEXTZ(MACHINEZ)  >  MAXQUES’X  THE 
N  MQNEXT2(MACHINEZ)=1 

5330  IF  WAITFLAGZ  =  1  THEN  MACHINEOUE!(MACHHOLDINGZ»MQNEXT’/'(MACHHOLDINGZ) .  1  )=STR!< 
JOBZ) :MACHINE0UE1(MACHH0LDINGZ»HQNEXT’Z(MACHH0LDINGZ) f2>='99' IMACHINEOUE! (MACHHDL 
DINGZ.MONEXTZCMACHHOLDINGZ)  .3)=STR!(MACHINE’X)  ;MACHINEZ=MACHH0LDING’/ :  WAI  TFLAGZ=:  1 
GOTO  5320 

5340  'ABOVE  STATEMENT  SAVES  HOLD  VALUE  IN  QUE  AND  THEN  INCREMENTS  QUE  POINTER 
5350  IF  WAITFLAGZ  =  2  THEN  HOLD ING2  (  MACHINE/,  t  JOBZ fHJOBZ  )  =  1 1  HOLDINGZ  (  MACHINE,’' .  JOBZ * 
hOLE-.;=MQNEXT’Z(MACHlNE’/.)  :UAITF1.AGZ=0;GOTO  5320  'SAVE  QUE  POSITION  OP  NEXT  PROCES 
S  FjR  THE  HELD  MACHINE  PROM  THIS  JOB  AND  THEN  INCREMENT  QUE  POINTER  TO  LEAVE  THE 
0U£  £h)TY 

536  J  IF  FR0CH0LD’/.  =  0  THEN  GOTO  5080  IF  PROCESS  HOLD  FLAG  NOT  SET  THEN  LOAD  IN  NE 
XT  PROCESS 
53/0  RETURN 
53  :V  ' 

5  :  ■  s;  T  NE  '  T  FAt  ArTEF 

2  4.'' 

.  .  i  •  ’i-i'ir  hen’;^-i  then  tlen’.^'.e"' imI'-e*  >  ie.no'h 


GOTO  54^0 


5-1:0  • 

5-1 '0  'SEND  rtfiCHINE  NEXT  MOVE  FROM  QUE 
54:  0  ' 

54'=0  IF  JOBSRUNG%(hACHINEX;'  =  l  THEN  RETURN  'MACHINE  BUSY 

55-0  IF  MQPUINTER7.(MACHINE:'i=nQNEXTX(MACHINEZ>  THEN  RETURN  'QUE  IS  EMPTY 

5510  J0P%  =  UAL(MACHINEQUE*(MACHINEZ.MQP0INTER2<MACHINE'/.)  >1 ) ) 

5550  PRINT'SENDING  MACHINE '  JMACHINE?.  i  *  IT'S  NEXT  PROCESS’ 

5530  GOSUB  4870  'TURN  ON  PORT.  IT  IS  NECESSARY  TO  TURN  ON  THE  PORT  OTHERWISE  CA 
N  BE  UNPREHICTABLE 

5540  ON  MACHINE*/,  GOSUB  5580. 6260. 6840»6660  'SEND  DATA  TO  MACHINE 
5550  RETURN 
5560  ' 

5570  '1  -  STACKER 

5560  'PARAMl  -  OPERATION  ♦.PARAM2  -  BIN  «.  PARAM3  -  TRAY  « 

5590  ' 

5600  0PERTNZ=VAL<MACHINEQUE»(MACHINEZ.MQP0INTER7.(MACHINE>i)»3) ) 

5610  BINX=VAL(MACHIN£QUE$<MACHINEZ.MQP0INTER7.(MACHINEZ).4)) 

5620  TRAYZ=UAL<MACHINEQUE$(MACHINEZ.MQP0INTER2(MACHINEZ) .5>) 

5630  IF  OPERTNZ  <>  1  GOTO  6020  ELSE  IF  BSTATUSZ(BINZ)  <>  1  AND  TSTATUSZ(TRAYZ)  < 
>  1  GOTO  6020  'PROCESS  CAN  BE  EXECUTED.  BIN  OR  TRAY  NOT  IN  USE 
5640  PRINT  'PROCESS  FOR  PART  NUMBER  *  }PRTNUMP.$(  JOB*/)  i '  WAITING  FOR  A  BIN  OR  TRAY 
■IPRINT'  THAT  IT  USES  TO  BECOME  FREE.* 

5t50  'CHECK  QUES  FOR  RETURN  BIN  OPERATION 

5660  STACKQUESZ=ABS(MQNEXTZ(MACHINEZ)-MQP0INTERZ(MACHINE2))-1  'GET  NUMBER  OF  JOB 

S  IN  STACKER  QUE  <-l  BECAUSE  MQNEXT  POINTS  TO  NEXT  QUE  TO  BE  FILLED 

5670  FOR  PARAMZ=MQP0INTER2(MACHINEX)+1  TO  STACKQUESZ+MQPOINTERX ( MACHINEZ > 

5680  IF  PARAMX  >  MAXQUESX  THEN  PARAMX=1 IHRAPPEDZ  =  1 

5690  IF  DEBUG  *  3  THEN  PRINT'QUE==>' JPARAMZI *  COMMAND==>* JMACHINEQUEK 1 .PARAMX.3 
) 

5700  IF  VAL(MACHINEOUEi(MACHINEX. PARAMX. 3) )-2  THEN  RETOUEZ^PARAMZ S PARAMX=STACKQU 
ESX+MQPOINTERX<MACHINEZ);GOTO  5730  'CHECK  QUE  FOR  A  RETURN  BIN  COMMAND 
5710  IF  VAL(MACHINEQUEI(MACHINEX. PARAMX. 3))*1  AND  TSTATUSZ( VAL<MACHINEQUE»(MACHI 
NE*/.PARAMX.5)))=0  THEN  RETQUEZ=PARAMZ:PARAMX=STACKQUESX+MQP0INTERX(MACHINE2)  .‘GOT 
0  5730  'CHECK  DUE  FOR  A  EXECUTABLE  RETRIEVE  BIN  COMMAND 

5720  IF  WRAPPEDX=1  AND  PARAMZ=MQNEXTX(MACHINEX)  THEN  PARAMX=STACKQUESX+MQPOINTER 
X(MACHINEZ) 

5730  NEXT 

5740  IF  RETQUEX=0  THEN  PRINT'NO  RETURN  BIN  OPERATIONS  FOUND RETURN 

5750  'SHUFFLE  QUES  UP  AND  PUT  RETURN  BIN  QUE  IN  CURRENT  QUE  POSITION 

57S0  'MOVE  QUE  WITH  RETURN  BIN  COMMAND  TO  TEMPORARY  STORAGE 

5770  IF  DEBUG*/.  =  3  THEN  PRINT ’RETQUE==>*  JRETQUEZ 

5780  FOR  PARAMX=1  TO  MQPARAMS%<MACHIHE*/)+2 

5790  TEMP$  <  P  ARAMX )  =MACHI  NEQUE*<  MACH  INEZ.  RETOUEX.PARAM*/) 

5800  IF  DEBUGZ=3  THEN  PRINT ' TEMP ' 5 PARAMX} •==>*; TEMPI ( PARAMX ) 

5810  NEXT 

5820  quex=retquex;retquez=o 

5830  LQUEX=QUEX-1  'FIND  NEXT  LOWER  QUE 

5840  IF  LQUEZ  <  I  THEN  LQUEX=MAXQUESZ  'CHECK  FOR  WRAP  AROUND 
5850  IF  DEBUGX  =  3  THEN  PRINT'MOVED  QUE  ==/ *  }LOUE*' 

5SiO  FOR  PARAMX=1  TO  MQFARAMSX<MACHINEX)+2 

58~0  MACHINEQUEI (MACHINEX.OUEX. PARAMX )=MACHINEQUE$( MACHINEX. LQUEZ. PARAMX) 

58-0  IF  D£BUGZ  =  3  THEN  PRI NT  '  PARAM  ==.>‘ *. MACHINEOUEH  1 . QUEX.  PARAMX  ) 

58  '0  t^EXT 

SI  ’.'O  IF  DEBUG%=3  THEN  PRINT  *  MQPOINTERX==  .  *  FMOPOINTERZU  ) 

5010  IF  LQUEZ=MQPOINIERX<MACHINEZ)  GOTO  5960 
50:0  IF  QUE*/  =  1  then  0UEX  =  nAX0UE5X  ELSE  OUEX=OUEX-1 

5030  lql'e:.=louex-i 

5040  GOTO  583'.'  'MOVE  NEXT  QUE 

9L'E  '.'ITH  11  >1  C2““A''D  TO  31"  RE'-T  O'JE  POSITION 

:  -iJ  •  i  f  C  .  '  . 


..  !'  ..  .  Ic'.:'  tilTH  RETI.RM  SIN  EUnhAf '' 

£'.'■.0  tfT.'XF:c.F:EAI'Y»  i  'TELL  APPLE  REAI'Y 

i'.io  F'jp  HQLii:;=i  TO  :ooc':next : IF  loc(«uxfz)=o  then  goio  603:  -wait  for  buffer  to 

F.LL  LP  WITH  GARBAGE 

6C-0  AN3UER»=INPUT$(L0C(hUXF;i) itttUXFZ) :X=1NSTR(ANSUER*) ‘READY* ) IIF  X=0  THEN  FRIN 
T’DIDNT  RECEIUE  READY  FROM  STACKER ‘ : GOTO  6020 
6050  PRINT  ♦MUXFZ,0PERTNZ;CHR$<10); 

oOiO  INPUT  ♦MUXF'/.rANSUERSIPRINT'OFERTION  SENT  TO  APPLE  IS  ‘fANSWERI 

6070  X=INSTR(ANSUER$.RIGHT$(STR$<OPERTNZ)»l));iF  X  =  0  THEN  PRINT  ♦MUXFX. BAD* i ‘.G 

OTG  6050 

60B0  PRINT  *MUXFZ,OK*} 

6090  PRINT  ♦MUXF7.,BIN5';CHRi(10)  5 

6100  INPUT  ♦MUXF/;,ANSWER$:PRINT‘BIN  ♦  SENT  TO  APPLE  IS  •fANSUER$ 

6110  X  =  INSTR(ANSWER$.RIGHT»(STR$(BIN%)»l)):iF  X  =  0  THEN  PRINT  ♦MUXFZ  i  BAD<  J  *.  GOTO 
6090 

6120  PRINT  ♦MUXFXiOKij 

6130  PRINT  ♦MUXF7.,TRAY2fCHR»(10)» 

6H0  INPUT  ♦MUXFZiANSUER*:PRINT‘TRAY  is  ‘{ANSWERS 

6150  X=INSTR<ANSUER*»RIGHT$(STRS(TRAY2) »1)):IF  X  =  0  THEN  PRINT  *MUXFZf BADS? IGOT 
0  6140 

6l£0  PRINT  ♦MUXFZ.OKS; 

61'0  J0£ERUNGZ(hACHINE5:)  =  l  'SETS  MACHINE  BUSY  FLAG 

61E0  IF  0PERTN7.=2  THEN  BSTATUSX  ( BIN% )  =0 1  TSTATUSXdRAYX )  =0 :  JSTATUS7.  ( MACHINEZ  i  TRAY 
Z)=UAL'.MACHINEQUES'.MACHINEZiMQPOINTERZ(MACHINEZ)»l>>  'FOR  RETURN  OPERATION  RECOR 
D  BIN»  TRAY,  AND  JOS  STATUS  AS  AVAILABLE 

6190  IF  0PERTNZ=1  THEN  BSTATUSZ < BINZ ) =1 t TSTATUSZ( TRAYZ ) =1 t JSTATUSZ ( MACHINEZ, TRAY 
Z)=VAL(hACHINEQUE$(MACHINEZ,MQPOINTERZ(MACHINEZ)»l)  > 

6200  MQPOINTERZ<MACHINEZ)=MQFOINTERZ(MACHINEZ)  ♦  1 

6210  IF  MQPOINTERZ(MACHINEZ)  >  MAXQUESZ  THEN  MQPOINTERZ ( MACHINEZ ) =1 

6220  PRINT  »MUXFZ,CHR»(1)  +  ‘O'}  'IT  IS  NECESSARY  TO  DISCONNECT  FROM  THE  MUX  BEC 

AUSE  IF  IT  DOESN'T  SEND  THE  PORT  NUMBER  SOMETIMES  IF  IT  IS  ALREADY  CONNECTED  TO 

THE  PORT  WHEN  THE  APPLE  SENDS  A  ATTENTION  RE9UEST  SIGNAL  (CTRL-A) 

6230  RETURN 
6240  ' 

6250  '2  -  MINI  ROBOT 

6260  'PARAMl  -  FILE  NAME,  PARAM2  AND  3  -  MACHINES  USED  BY  FILE 
6270  ' 

6280  PARAMZ=4JMACHZ=1 

6290  MACHZ=VAL(MACHINEOUES(MACHINEZ,MQPOINTERZ(MACHINEZ),PARAMZ) ) ;PARAMZ=PARAMZ 

+  1  '1ST  MACHINE  NEXT  EXECUTION  FILE  IS  DEPENDANT  ON 

6300  IF  MACHZ=0  THEN  GOTO  6360  'NOT  DEPENDANT  ON  ANY  OTHER  MACHINES 

6310  IF  MACHZ=1  THEN  TRAYZ=VAL<MACHINEQUE$(MACHINEZ,MQPOINTERZ(MACHINEZ) ,PARAMZ) 

);IF  JSTATUSZ(1,TRAYZ)  <>  JOBZ  THEN  PRINT’ROBOT  WAITING  FOR  STACKER  TRAY  »‘;TRAY 

Z:RETURN:EL£E  PARAMZ=PARAMZ  +  IJGOTO  6340  'CHECK  TO  SEE  IF  STACKER  IS  READY 

6320  IF  MACHZ=99  THEN  WAITMACHZ=VAL(MACHINEQUE»(MACHINEZ,MOPOINTERZ(MACHINEZ) ,PA 

RAMZ) ) :PARAMZ=PARAMZ+1 :G0T0  6340 

6320  IF  JSTATUSZ(MACHZ,1)  •<>  JOBZ  THEN  PRINT'ROBOT  WAITING  FOR  MACHINE  ♦‘iMACHZt 
RETURN  'MACHINE  NOT  TO  THIS  JOB  YET 

6340  IF  MACHZ=1  THEN  MACHZ=2:G0T0  6290  'CHECK  FOR  TO  SEE  IF  SECOND  MACHINE  DEPEN 

daft  on  is  ready 

6350  IF  WAIThACHZ  ;>  0  THEN  IF  HELDZ(WAITMACHZ)  <>  JOBZ  THEN  PRINT’ROBOT  WAITING 
FCR  MACHINE’ fWAITMACHZ'.RETURN  ELSE  WAITMACHZ=0  'CHECK  IF  MACHINE  ROBOT  WAITING 
FOP  IS  HELD  ON  THIS  JOB 
63i0  '  EXECUTE  PROCESS 
63'0  PRINT  #MUXFZ, ’READY’ 5CHR*a3)  { 

63E0  FOR  H0LDZ=1  TO  AOOOtNEXT’.IF  LOC(MUXFZ)=0  GOTO  6380  'WAIT  FOR  APPLE  TO  SEND 
RESPONSE  THROUGH  MUX 

6390  ANSWERt=INPUT»(LOC(MUXFZ),»MUXFZ);X=INSTR(ANSWERt»’DK’):iF  X=0  THEN  FRINT’H 
AVINQ  PP.OBlEMS  SENDING  TO  ARRLE  -  ROBOT*  TGOTO  *370 
64.0  'RIfT’A'^PLE  accepted  FIRST  READY’ 

64:0  PC':-  H'2LD''.=  1  TO  1 000 :  NEXT  ;  PR!  NT  f  M'JXFZ,  ’  1  ’  :  CHRJ  '  1  3 '■  J  '‘’lAIT  FCR  ARPLE  A/D  TfL 
N  .OI'IS  :'5'.'J’’E 

£■4.0  F-':  '0  30'  O'NL  T  UFIT  FOR  AP'^iE  ^0  .£  'I-I  ' 

6410  '  --■•:  a:  :  lz  -ile  i/.ziltz 


•  '  .  '  ■'•I  •  'F  EAL- 13)  :  :F"^INT*EE-<T  SE::-':  rE.-A;* 

.  .  .  '0  O''''  IF  L-.  C -  =0  GGTQ  tAl'j 

.  -If-- F  (  LI':  tnU-F'.  > 

/^If.iTE'Af-EUEF't. 'CF*  -  :IF  X  =  0  THEN  PRIfiT'HAVING  .-FGELEMS  F:£CCI'-'INu  FROF  AF'F'L 
3  -  F<OiOT‘;GQTO  6440 
i4£0  For:  HDLD%  =  1  TO  lOOO.’NEXT 

64'-'0  PRINT  ♦nUXFZ»MACHINEQU£t<MACHINEZ>MQP0INTERZ<HACHINE/‘I).3)fCHRi(13)F  'SEND  R 
OPCT  FILE  NAME  TO  EXECUTE 
6500  PRINT'SENT  FILE  NAME' 

6510  FOR  HOLDZ=i  TO  20oo:next:if  loc<muxfz)=o  then  print'hauing  problems  RECEIVI 

NG  FILE  NAME  BACK  FROM  APPLE  -  ROBOT' .'GOTO  6510 

6520  ANSUER*=INPUT»(L0C(MUXF5:)»#MUXFZ):PRINT'APPLE  sent  ==> ' JANSUER* ;X=INSTR(ANS 
UER11»MACHINEQUE$<MACHINE;'iMQP0INTER%(MACHINEZ).3)).'IF  X  =  0  then  PRINT'APPLE  hauin 
G  PROBLEMS  RECEIVING  ROBOT  CONTROL  FILE  NAME'IPRINT  fMOXF/: . '  BAD '  i  CHR»  (13)  5 ‘.GOTO 
6490 

6530  PRINT  »MUXFZ.'0K';CHR»(13)f 

6540  FOR  H0LD%=1  TO  SOOOINEXTIIF  L0C(MUXF%)=0  GOTO  6570  'WAIT  FOR  APPLE  TO  ATTEM 

PT  TO  USE  CONTROL  FILE  PASSED 

6550  ANSWER$=INPUT$<L0C(MUXF2) .♦MUXFi:) 

6560  X=INSTR(ANSUER».'BAD');PRINT'APPLE  SENT  *=> ' . ANSWER! 5 IF  XOO  THEN  PRINT'ROB 
OT  COULD  NOT  FIND  'IPRINT'FILE  ' JMACHrNEQUE!(MACHINEZ»MQP0INTER%(MACHINE2> f 3) J ' 
FOR  PART  NUMBER  '  5  PRTNUMB!  (  JOBZ)  1  PRINT  1  INPUT '  TYPE  RETURN  TO  CONTINUE  'iHOLDt'.GOT 
0  6610 

6570  PRINT  ♦MUXFZ.CHR»(1)5'0'}  'DISCONNECT  MUX  FROM  ROBOT 

6580  RSTATUS7.(MACHINEr.)=l  'SET  ROBOT  BUSY  FLAG 

6590  JOBSRUN6Z(MACHINE5:)  =  l  'SET  ROBOT  BUSY  FLAG 

6600  JSTATUSX<MACHINEX»l)=JOBr.  'JOB  ROBOT  CURRENTLY  WORKING  ON 

6610  MQP0INTER7,(MACHINE;()=MQP0INTER2(MACHINLZ)  +  1 

6620  IF  MQPOINTER5!(MACHINE7.)  >  MAXQUESX  THEN  MQP0INTER(MACHINEX)  =  1 

6630  RETURN 

6640  ' 

6650  '4  -  TOYO  LATHE 

6660  'PARAMl  -  FILE  NAMEiPARAM2  -  FILE  EXTENSION*  PARAM3  -  ROBOT  IS  DEPENDANT  ON 
(MACHINE  2  OR  3) 

6670  ' 

6680  IF  JOBZ  <>  0  THEN  IF  H0LDING2<MACHINE%. JOB%f HJOBX)  <>  0  AND  MACHINE0UE»(MAC 
HINE7.fMQF0INTER2(MACHINE2)f2)  =  *99'  THEN  HELD%(MACHINEX)=JOB%:PRINT'LATHE  IS  BE 
ING  HELD  IDLE  BY  MACHINE  '  5MACHINEG)UE*(MACHINE%.MQPOINTER2(MACHINE2)  »3) '.RETURN 
6690  IF  MACHINEQUE»(MACHINE2.MQP0INTERX(MACHINEZ).2)='99'  THEN  GOSUB  6B20  'HOLDI 
NG  FLAG  DUE  SKIPPED 

6700  MACH1%=VAL(MACHINEQUE!(MACHINEZ*MQP0INTERZ(MACHINE%) .4)  ) 

6710  IF  MACHl/'  <7  0  THEN  IF  JSTATUSX(MACH1X. 1 )  <>  JOBX  THEN  RETURN  'NOT  DEPENDAN 
T  ON  ROBOT  OR  ROBOT  NOT  REACHED  THIS  JOB  YET 
6720  PRINT  ♦MUXFX.READYSi 

6730  FOR  HCLD'<=1  TO  2000:NEXT:IF  L0C(MUXFX)=0  THEN  PRINT'HAVING  PROBLEMS  RECEIVI 
NG  FROM  APPLE’ (GOTO  6720  'WAIT  FOR  BUFFER  TO  FILL 

6740  ANSWER»  =  INPUT»(LOC(MUXFX)t*MUXFX)'.X  =  INSTR(ANSWERt»'READY'):iF  X=0  THEN  PRIN 
T'DIDN'T  RECEIVE  READY  FROM  LATHE' '.GOTO  6720 

6750  PRINT  ♦MUXF2. 'EXECUTE'  4  CHRt(10)i  'SELECT  EXECUTE  LATHE  FILE  FILE  OPTION 
6760  INPUT  ♦MUXFZ.ANSUER1:X=INSTR<ANSWER!.'0K'):IF  X=0  then  PRINT'LATHE  DIDN'T  T 
AKE  EXECUTE' -.GOTO  6750 

6770  LF:LE»=MACHINEQUE»<MACHINEX*MQPOINTERi(MACHINEX> »3)  4  4  MACHINE3UE4 ( MAC 

hivex.mqpqinterxcmachine;:)  f  4) 

6760  PRINT  ♦MUXFX.LriLE»iCHP»<10);  'SEND  LATHE  FILE  NAME  TO  EXECUTE 

PRINT  iMUXFZ.CHRSf 1 ) i '0' ;  'IT  IS  NECESSARY  TO  DISCONNECT  FROM  THE  MLX  UR  EL 
EE  MULTIPLEXOR  DOESN'T  NOTICE  WHEN  THE  APPLE  SENDS  A  ATTENTION  REOUEST  CHARACTER 
aTRL-A) 

cSvO  J0B5RUNGZ(MACHINE7. '  =  1  'SET  MACHINE  BUSY  FLAG 

6310  JSTATUSH  MACH  INEZ  .  1 )  =VAL  <  MACHl  NEQUE!  i  MACHINE!; »  MQPOINTER'X  (MACHINE!; )» 1  )  '  'REC 
OPIS  WHICH  JOB  LATHE  IS  WORKING  ON 

tZlO  MJF'.INTERV.'MACHINE'O^MO'GINTER'KMACHINE';)  4  1!IF  MQTOInTERX'MACHINE!;)  •  MAX 
.fill',  the-!  >iLiPOlNrEP!;tMACHINE;;)  =  l  'INC  MACHI-JE  oue  pointer 


10  REM 

20  REM  t  STORAGE  AND  RETRIEVAL  SYSTEM  CONTROLLER 
30  REM  *  -BYU  MINI-CAM  LAB- 

40  REM  «  ORIGINAL  APPLESOFT  VERSION  BY  DAVE  JESPERSON 
SO  REM  «  MICROSOFT  PROGRAM  BY  JUSTIN  REDD 
60  REM  *  OCTOBER,  1983 
64  REM  « 

66  REM  «  MODIFIED  IN  JUNE  OF  84  TO  WORK  UNDER  CONTROL  LOF  GREG  PETO*S  PROGRAMS 
70  REM  t 

80  REM  *  WHEN  RUN,  THIS  PROGRAM  WILL  WAIT  FOR  3 
90  REM  t  PARAMETERS  TO  BE  PASSED  TO  IT  THROUGH 
lOO  REM  *  THE  RS232  LINK.  THESE  THREE  PARAMETERS 
110  REM  *  ARE  DEFINED  AS  THE  0PERATI0N«,B1N«, AND 

120  REM  *  TRAY#.  OPERATION#  0  =  RETURN  BIN 

130  REM  *  OPERATION#  1  =  RETRIEVE  BIN 

140  REM  »  OPERATION#  2  =  QUIT  PROGRAM 

150  REM  * 

160  REM  t  TO  RUN  THIS  PROGRAM  CYDRIVER.HEX  AND  COMM. HEX 
170  REM  #  MUST  BE  LOADED  INTO  MEMORY. 

180  REM  « 

190  REM 
200  REM 

210  HOME: PRINT  "  APPLE  STACKER  PROGRAM" : PRINT: PRINT" - 


220  PRINT: PRINT 

230  REM  tttttttttttttttttttttttttt 

240  REM  t  LOAD  CYDRIVER  AND  COMM 
250  REM 
260  REM 

270  C ALLER*= ”STACKIBM.C0N":CLINE=300: PRGM4* " X X X X " : SL I NE=999 : HF I LE4* " X X X X " 
280  COMMON  CALLER#, CLINE, PRGM4, SL I NE, HF I LE» 

290  CHAIN  "LOADASM.BAS” 

300  REM 

310  REM  tttttttttttttttttttttttttt 

320  REM  *  INITIALIZE 

330  REM  <«««$«««*««#««««««*«««*««« 

334  READY»=" READY"  +  CHR«(13) 

335  BAD#=“BAD"  +  CHR*(13) 

336  OK#* "OK"  +  CHR#(13) 

338  DONE#=CHR# ( 1 )  ’MUX  INTERUPT  REQUEST  SIGNAL 
340  REM 

350  DIM  BIN(63,2) 

360  DIM  TRAY (2, 2) 

370  BIN ( 1 1, 1) =4085: BIN (11, 2) =16375 
380  BIN ( 12, 1) =4138: BIN (12, 2) =10750 
390  BIN(13, 1)=4138:BIN(13,2)=4925 
400  BIN (21, 1) =6140: BIN (21, 2) =16375 
410  BIN(22, 1)=6140:B1N(22,2)=10675 
420  BIN (23, 1) =6212: BIN (23, 2) =4775 
430  BIN (31, 1> =8200: BIN (31, 2) =16375 
440  BIN(32, 1)=8269:BIN(32,2)=10775 
450  BIN (33, 1) =8262: BIN (33, 2) =4875 
460  BIN(41, 1)=10250:BIN(41,2)=16375 
470  BIN (42, 1) *10300: BIN (42, 2) =10750 
480  BIN(43, 1>*10312:BIN(43,2)=4925 
490  BIN (51, 1) =12287: BIN (51, 2) *16375 


500  BIN(S2, 1)=12312:BIN(S2,2)=10800 
510  BIN (53, 1) =12344: BIN (53,2) »4850 
520  BIN (61, 1) =14320: BIN (61, 2) =16375 
530  BIN (62, 1) =14337: BIN (62, 2) =10775 
540  BIN (63, 1) =14350: BIN (63, 2) =4875 
550  TRAY ( 1 , 1 ) =0: TRAY (1,2) =16350 
560  TRAY (2, 1 ) =2025: TRAY (2, 2) =16350 
570  REM 

580  CY4="I,R  253,5  1 , F  1 , A, P  1 , P  O" 

585  MQTQR14="I,R  251,S_1,F  1,A,P  1,P  0“ 

586  MOTOR  1«=M0T0R1«+"'' 

590  CY4=CY*+''“ 

600  CYl*="XXX"+"":CY2*="XXX*'+'’":CY3*=”XXX”+**“ 

610  FOR  I  =  1  TO  2 
620  Q4=USR1 (M0T0R14) 

630  Q4=USR2(CY*) 

640  Q4=USR3(CY«) 

650  NEXT  I 
660  REM 
670  REM 

680  REM  *  SET  HOOK  BACK  1  INCH 

690  REM  t**t*tt*tttt***t*tttt**tttt 

700  REM 

710  CY4=*’N  3000, -,G, A"  'MOVE  HOOK  OUT  AN  INCH  AND  A  1/8, SET  AS  AT  HOME  POSITION 

715  M0T0R24=“N  16795, -,G, A” 

716  Q4=USR2(M0T0R2*) 

730  Q*=USR3(CY«) 

741  GOSUB  2190  *SET  HOOK  BACK  ONE  INCH 

742  ’WAIT  FOR  READY  SIGNAL  FROM  IBM 

745  Q4=USR8(IBM4) 

746  X=INSTR(  IBM*,  "READY"):  IF  X  =  0  THEN  D*=USR7  (BAD*)  :  PR  I  NT  "RECEIVED  =>”;IBM*:G 
OTO  745 

747  Q*=USR7 (READY*) :PRINT”RECEIVED  READY" 

750  REM 

760  REM  t*tttt**t****t*ttttttt*tt** 

770  REM  »  INPUT  PARAMETERS  FROM  IBM 

780  REM  t***tt***t*ttt*t*tttt*ttttt 

790  REM 

800  0*="XXX"  +  "":OPERATION*="XXX"+"":XBIN*="XXX"+"": XTRAY*="XXX"+"" 

810  ’ 0K*= " OK " +CHR* (13): WHAT*= "WHAT? " +CHR* (13): RE ADY*= " READY " +CHR* (13) 

815  *Q*=USR7( READY*) 

820  PRINT  "OPERATION#  = 

840  Q*=USR8 ( OPERAT I ON* ) : PR I NT  OPERAT I ON* 

842  ANSWER*=OPERATION*  +  CHR*(13) 

844  (?*=USR7( ANSWER*) 

846  Q*=USR8(CHECK*) : X=INSTR(CHECK*, "OK") S IF  X=0  THEN  GOTO  840  ’APPLE  DIDN’T  RECE 
IVE  OPERATION  CORRECTLY" 

850  ’IF  OPERATION*  <>  "O"  AND  OPERATION*  <>  "1"  AND  OPERATION*  <>  "2"  THEN  PRINT 
"INVALID  0PERATI0N#":Q*=USR7(WHAT*) :PRINT:GOTO  820 
860  OPERATION  =  VAL ( OPERAT 1 ON* ) 

870  IF  OPERATION  =  3  THEN  GOTO  1470 
880  ’Q*=USR7(0K*) 

890  PRINT  "BIN#  =  "; 

900  Q*=USR8(XBIN*) :PRINT  XBIN* 

902  ANSWER*=XBIN*  +  CHR*(13) 

904  Q*=USR7 (ANSWER*) 


906  Q»=USR8(CHECK*):X=INSTR(CHECK*,"0K"):IF  X=0  THEN  GOTO  900 
910  'DATA  11,12,13,21,22,23,31,32,33,41,42,43,51,52,53,61,62,63 
920  'FOR  I  =  1  TO  18 
930  'READ  X 

940  'IF  VAL(XBIN4)=X  THEN  RESTORE:  GOTO  lOOO 
970  'NEXT  I 

980  'REST0RE:Q4=USR7(WHAT4) rPRINT  "BAD  BIN#": PRINT: GOTO  890 
1000  XBIN=VAL(XBIN*) 

1005  'Q4=USR7(0K4) 

1010  PRINT  "TRAY#  =  "; 

1020  Q#=USR8(XTRAY*) :PRINT  XTRAY# 

1022  ANSWER#=XTRAY#  +  CHR4(13) 

1024  Q#=U5R7(ANSWER»> 

1025  'IF  XTRAY*  <>  "1"  AND  XTRAY*  <>  "2"  THEN  PRINT  "BAD  TRAY#" : PRINT: Q#=USR7 (WH 
AT#); GOTO  1010 

1026  Q*=USR8 (CHECK* ); X=INSTR (CHECK*, "OK") : IF  X=0  THEN  GOTO  1020 
1030  XTRAY=VAL(XTRAY*) 

1040  PRINT; PRINT  " - ": PRINT 

1050  REM 

1060  REM  ttttttttttttttttttttttttttt 
1070  REM  t  GOTO  OPERATION#  ROUTINE 
1080  REM  ttttttttttttttttttttttttttt 

1090  REM 

1100  'IF  XTRAY  <  >  1  AND  XTRAY  <  >  2  THEN  PRINT  "BAD  TRAY#  PAS5ED":G0T0  760 
1110  'IF  XBIN  >  63  OR  XBIN  <11  THEN  PRINT  "BAD  BIN#  PASSED": GOTO  760 
1120  N*=RIGHT*(STR*(XB1N) , 1) 

1130  'IF  N*  <>  "1"  AND  N*  <>"2"  AND  N*  <>  "3"  THEN  PRINT  "BAD  BIN#  PASSED": GOTO 
760 

1140  ON  OPERATION  GOTO  1310,1150  ' 1 -RETRIEVE  BIN, 2-RETURN  BIN 
1150  REM 

1160  REM  «  RETURN  BIN 

1170  REM 

1180  REM 

1190  GOSUB  1730 

1200  GOSUB  1860 

1210  FLAB*="TRAY" 

1220  GOSUB  1960 
1230  GOSUB  2270 
1240  GOSUB  1620 
1250  GOSUB  1860 
1260  FLAG*="BIN" 

1270  GOSUB  2070 
1280  GOSUB  2170 
1284  Q*=USR7(D0NE*) 

1286  PR I NT "SENT  FINISHED  SIGNAL" 

1290  GOTO  742  'WAIT  FOR  IBM  READY  SIGNAL 
1300  REM 

1310  REM  ttttttttttttttttttttttttttt 

1320  REM  «  RETRIEVE  BIN 

1330  REM  ttttttttttttttttttttttnttnt 

1340  REM 
1350  GOSUB  1620 
1360  GOSUB  1860 
1370  FLAG*="BIN" 

1380  GOSUB  1960 
1390  GOSUB  2270 


1400  60SUB  1730 
1410  GOSUB  1860 
1420  FLAB4="TRAY" 

1430  GOSUB  2070 
1440  GOSUB  2170 
1444  Q«=USR7(DONE4> 

1448  PR I NT "SENT  FINISHED  SIGNAL" 

1450  GOTO  742  'WAIT  IBM  READY  SIGNAL 
1460  REM 

1470  REM  ttttttttttttttttttttttttttt 

1480  REM  «  TERMINATE  PROGRAM 
1490  REM 
1500  REM 

1510  CY1*="P  0"sCY24="P  16795" : CY3*="P  O" 

1520  FOR  1=  1  TO  2 
1530  Q*=USR1 (CY14) 

1540  Q*=USR2(CY2*) 

1550  NEXT  I 

1560  FOR  I  =  1  TO  2 

1570  REMQ4=USR3(CY3«) 

1580  NEXT  I 

1590  HOME: PR I NT  "STACKER  PROGRAM  TERMINATED" 

1600  PRINT: PRINT: END 
1610  REM 
1620  REM 

1630  REM  t  GOTO  BIN  GOOD I NATES 
1640  REM 
1650  REM 

1660  CY1«="P"  +  STR4(BIN(XBIN, 1) ) 

1670  IF  OPERATION  =  1  THEN  CY2«="P"  +  STR* (  BIN(XBIN,2>  +  385  ) 
1680  IF  OPERATION  *  2  THEN  CY2»="P"  +  STR*(  BIN(XBIN,2)  > 

1690  FOR  I  =  1  TO  2 

1700  Q4=USR1 (CY14) :Q»=USR2<CY2*) 

1710  NEXT  1 
1720  RETURN 
1730  REM 

1740  REM  ttttttttttttttttttttttttttt 

1750  REM  «  GOTO  TRAY  COORDINATES 
1760  REM  ttttttttttttttttttttttttttt 

1770  REM 

1780  CY1*="P"  +  STR4(TRAY<XTRAY, 1) ) 

1790  IF  OPERATION  =  1  THEN  CY24="P"  +  STR4 (TRAY ( XTRAY, 2) ) 

1800  IF  OPERATION  =  2  THEN  CY24="P"  +  STR*(  TRAY (XTRAY, 2)  +  385  ) 

1810  FOR  I  =  1  TO  2 

1820  04=USR1 (CYl*) :Q*=USR2(CY2*) 

1830  NEXT  I 
1840  RETURN 
1850  REM 

1860  REM  ttttttttttttttttttttttMtttt 

1870  REM  t  HOOK  FORWARD 

1880  REM 

1890  REM 

1900  CY3*="P  O" 

1910  FOR  I  =  1  TO  2 
1920  Q4=USR3(CY34) 

1930  NEXT  I 


1940  RETURN 
1950  REM 

1960  REM  ttttttttttttttttttttttttttt 

1970  REM  <  ENGAGE  HOOK 
1980  REM 
1990  REM 

2000  IF  FLAG»  =  "BIN"  THEN  CY2*="P"  +  STR* (  BIN(XBIN,2)  ) 

2010  IF  FLAG*  =  "TRAY"  THEN  CY2*="P"  +  STR*(  TRAY ( XTRAY, 2)  ) 
2020  FOR  I  =  1  TO  2 
2030  Q*=USR2(CY2») 

2040  NEXT  I 
2050  RETURN 
2060  REM 

2070  REM  ttttttttttttttttttttttttttt 

2080  REM  «  DISENGAGE  HOOK 
2090  REM 
2100  REM 

2110  IF  FLAG*="BIN"  THEN  CY2»="P"  +  STR* (  BIN(XBIN,2)  +  385  ) 
2120  IF  FLAG*="TRAY"  THEN  CY2*="P"  +  STR* (  TRAY < XTRAY, 2>  +  385  ) 
2130  FOR  I  =  1  TO  2 
2140  Q*=USR2(CY2*) 

2150  NEXT  I 
2160  RETURN 
2170  REM 

2180  REM  t************************** 

2190  REM  »  HOOK  BACK  ONE  INCH 
2200  REM 
2210  REM 

2220  CY3*="P  1600" 

2230  FOR  I  =  1  TO  2 
2240  Q*=USR3(CY3*> 

2250  NEXT  I 
2260  RETURN 
2270  REM 

2280  REM  t************************** 

2290  REM  *  HOOK  ALL  THE  WAY  BACK 
2300  REM  ttttttttttttttttttttttttttt 

2310  REM 

2320  CY3*="P  16000" 

2330  FOR  I  =  1  TO  2 
2340  Q*=USR3(CY3*) 

2350  NEXT  I 
2360  RETURN 
2370  REM 


100  ’ 

110  ’»  PART  PROCESS  TEXT  FILE  GENERATOR 
120  »»  FOR  THE  LATHE 

130  ’*  APPLESOFT  PROGRAM  BY  PAUL  SMITH 
140  '*  REWRITTEN  FOR  MBAS I C  BY 

150  ’*  GREGORY  J.  PETO 

160  ’*  JUNE  OF  1984 

162  ’» 

164  '*  TO  CHAIN  TO  THIS  PROGRAM  FOR  USE  UNDER  IBM  CONTROL  SET  OPT I ONI  TO  2  WITH 
A  COMMON  STATEMENT  FIRST 

165  ’  » 

166  ’»  THIS  PROGRAM  GENERATES  A  STANDARD  FORMAT  CNC  FILE  THAT  CAN  THEN 

167  '*  BE  USED  WITH  THE  INTERPRETER  TO  DRIVE  THE  LATHE.  THE  DATA  IT  NEEDS 

168  '»  CAN  BE  DOWNLOADED  FROM  THE  IBM  MASTER  CONTROLLER  PROGRAM  OR  THE 

169  ’»  PROGRAM  WILL  PROMPT  FOR  THE  INFORMATION.  IT  ONLY  SUPPORTS 

170  ’*  PART  FAMILIES  AOO  -  A20 
172  ’  » 

174  ’ tt*ttttt***t**tt***t$t**t**tttt*tt 

180  ’ 

182  ’*  INITIALIZE  COMMUNICATION  SUBROUTINES  » 

183  HOME 

184  ’ 

186  CALLER*="LTEXT.GEN":CLINE=300:PRGMfi="XXXX":SLINE=999:HFILE*=''XXXX"  ’SET  UP  T 
O  RETURN  TO  THIS  PROGRAM  PARAMETERS 
188  CHAIN  "BrLOADASM", , ALL 
300  ’ 

310  ’ tttttttttt  MAIN  PROGRAM  tttttttttt 

320  ’ 

330  GOSUB  480  ’INITIALIZE  ARRYS  AND  CONSTANTS 
332  ’ 

340  IF  OPT I ONI  03  THEN  GOSUB  1350  ’GET  MODE  OF  OPERATION 
342  ’ 

350  GOSUB  1520  ’GET  DATA  TO  DESCRIBE  PART 
352  ’ 

360  IF  OPTIONl  =  MANUAL  GOTO  420  ’MANUAL  PROGRAMING  GOES  DIRECTLY  TO  STORE  DATA 


362 

370 

380 

390 

400 

410 

420 

421 

422 
430 
432 
440 
450 
460 
470 
480 
490 

OF 

500 

510 

520 


GOSUB  3770 
GOSUB  3910 
GOSUB  4150 
GOSUB  4630 
GOSUB  4930 
GOSUB  5230 


’DO  INITIAL  LATHE  CALC’S 

’DO  ROUGH  FACE  OF  RIGHT  END 

’DO  ROUGH  CUT 

’DO  FINISH  CUT 

’DO  CUTOFF 

’STORE  DATA 


IF  CALLER  1*  <>  THEN  CHAIN  CALLER  1» 
GOTO  340  ’GET  MODE  AND  START  AGAIN 


’ t*t*t$*****ttt****tt*tt$t****t**t* 

’t  INITIALIZE  ARRAYS  AND  CONSTANTS 

9 

HOME ;  PR  I  NT  I N I T I AL I Z I NG  VAR  I ABLES  " 

ANSWER*  =  ”.51 ANSWER  =  OrPSTN  =  1  ’THIS  PUTS  OFTEN  USED  VARIABLES  AT  FRONT 
LIST 

OPTION  BASE  1  ’ARRAY  PARAMTERS  START  AT  1  NOT  O 
’ALL  ARRAYS  ARE  INITIALIZED  WITH  0  AUTOMATICALLY 

Dm  MOVE*  (200)  'SETS  MAX  -MOVES.  EACH  MEMBER  OF  THIS  ARRAY  WILL  HOLD  A  LINE  O 


-  ' j 

■i 

■1 

-■  ^ 

■ 

.  1 


m 


1 

i 


520  DIM  MOVE* (200)  ’SETS  MAX  MOVES.  EACH  MEMBER  OF  THIS  ARRAY  WILL  HOLD  A  LINE  O 
-  THE  FINAL  TEXT  FILE  CREATED 

530  DIAMAX  =  5  ’MAX  NUMBER  OF  DISTINCT  DIAMETERS 

540  DIM  DMENSION (DIAMAX, 2)  ’FOR  EACH  DIAMETER  THIS  WILL  HOLD  2  PARAMETERS-  WIDTH 
AND  LENGTH 

550  WDTH  =  1  ’USED  WITH  DMENSION  ARRAY 
560  LENGTH  =  2  ’USED  WITH  DMENSIONS  ARRAY 

570  DIM  OFFSET (DIAMAX)  ’WILL  HOLD  OFFSET  FROM  LEFT  END  FOR  EACH  DIAMETER 
5B0  COUNT  =  1  ’USED  TO  SPECIFY  THE  CURRENT  MOVE  NUMBER 
582  MAXCUT  =  .01  ’MAXIMUM  CUT  DEPTH  IN  ONE  PASS 
590  M INFEED  =  3  ’MINIMUM  FEEDRATE 

592  MAXFEED  =  10  ’MAXIMUM  FEEDRATE 

593  MINLEN  =  .075  ’MINIMUM  LENGTH  OF  ANY  SINGLE  DIAMETER 

594  MAXDIAM  =  .5  ’MAX  STOCK  DIAMETER 

595  MAXLEN  =  4  ’MAX  STOCK  LENGTH  IN  INCHES 

596  MAXZ  =  4  ’ MAA00EG16720RTl#0903a09038G903809038020193T 
598  MAXX  =  -2  ’MAX  MOVEMENT  AWAY  FROM  CENTER 

■lOO  STP*  =  ••M02"  ’COMMAND  TO  STOP  LATHE 

>10  TOOL*  =  ■■M06”  ’COMMAND  TO  STOP  FOR  TOOL  CHANGE 

-.40  RAPID  =  50  ’RAPID  TRANSVERSAL  FEEDRATE 

j50  short  =  30  ’SHORT  MOVE  FEEDRATE  -USED  ONLY  WHEN  NOT  CUTTING 

■>54  CUTOFFSPEED  =  1.7  ’CUT  OFF  FEEDRATE  -  SLOWEST  FEEDRATE  ALLOWABLE 

*60  CLRNC  =  .025  ’CLEARANCE  OF  CUTTING  TOOL  FROM  SURFACE  FOR  MOVES 

j70  fudge  =  .01  ’FUDGE  FACTOR  USED  IN  CUTOFF 

*80  READY*="R"  +  CHR*(13) 

j82  ER0R*="E"  CHR*(13) 

roo  ’ 

^10  ’*t*t  VERIFY  VARIABLE  CONSTANTS  ttt* 
f20  ’ 

^30  CHANGE  =  O 

^40  OPEN  "I",#!, "LCONST” 

^50  INPUT  #1, TOOL 1 CENT  ’TOOL  1  OFFSET  FROM  CENTER  LINE  WHEN  LATHE  IS  INITIALIZED 
'60  INPUT  #1,T00L1FACE  ’TOOL  1  OFFSET  FROM  CHUCK  FACE  WHEN  LATHE  IS  INITIALIZED 
"70  INPUT  #1,T00L2CENT 
'80  INPUT  #l,TOOL2FACE 

'90  INPUT  #1,CUTWIDTH  ’WIDTH  OF  CUTOFF  TOOL 
100  INPUT  #1,RS232  ’SLOT  NUMBER  OF  RS232  CARD 

no  INPUT  #1,DISKSL0T  ’SLOT  NUMBER  OF  DISK  DRIVE  OR  HARD  DISK 

111  CLOSE 

112  ’DISPLAY  CONSTANTS 

113  IF  OPTIONl  =  3  THEN  RETURN 

120  WIDTH, 24  : HOME: PR I NT  SPC (7) ; "CONSTANTS  USED  IN  PROGR AM " : NUMB  =  1 
130  PRINT" 

132  TABl  =  5 

40  PRINT  NUMB;".  OFFSET  ROUGH  CUT  TOOL  FROM": PR I NT  SPC (TABl ); "CENTER  LINE  =  ";S 
R*(T00L1CENT)  ;  "  INCHES.  ": NUMB  =  NUMB  1 

50  PRINT  NUMB;".  OFFSET  ROUGH  CUT  TOOL  FROM":PRINT  SPC (TABl ); "CHUCK  FACE  =  ";ST 
*(T00L1FACE) ; "  INCHES": NUMB  =  NUMB  +  1 

60  PRINT  NUMB;".  OFFSET  CUTOFF  TOOL  FROM": PRINT  SPC (TABl ); "CENTER  LINE  =  ";STR* 
T00L2CENT);"  I NCHES . " : NUMB  =  NUMB  +  1 

70  PRINT  NUMB;".  OFFSET  CUTOFF  TOOL  FROM": PRINT  SPC (TABl ); "CHUCK  FACE  =  ";STR*( 
OOL2FACE);"  I  NCHES":  NUMB  =  NUMB  1 

80  PRINT  NUMB;".  WIDTH  OF  CUTOFF  TOOL  =  " ; STR* (CUTWIDTH) ; "  INCHES": NUMB  =  NUMB 
1 

90  PRINT  NUMB;".  RS232  CARD  IS  IN  SLOT  #"; STR* (RS232) : NUMB  *  NUMB  +  1 
OO  PRINT  NUMB;".  DISK  DRIVE  CARD  IS  IN  SLOT  4"; STR* (DISKSLOT) 


908  PSTN  =23-5  ’POSTITIDN  TO  START  INPUT  LINE 

710  VTAB(PSTN):  PRINT  "DO  YOU  WISH  TO  CHANGE  ANY":PRINT  -OF  THESE  (Y/N)  ?  ••;;GET 
ANSWER*: PR I NT 

720  IF  ANSWER*  =  “N"  AND  CHANGE  =  O  THEN  RETURN  'NO  CHANGES 

730  IF  ANSWER*  =  "N"  THEN  HOME: PR I NT "SAVING  CHANGES" : GOSUB  1230: RETURN  'SAVES  PR 
lOR  CHANGES  AND  THEN  EXITS 

740  IF  ANSWER*  <>  "Y"  THEN  : PRINT: PR I NT "TYPE  ONLY  Y  OR  N":GOTO  910  'INPUT  ERROR 
1000  ’ 

1010  CHANGE  CONSTANTS  «««**><«« 

1020  ’ 

1028  VTAB (PSTN) : FOR  SPACE  =  1  TO  4  : PR I NT"  ": 

ME XT  'CLEARS  ANY  PRIOR  PROMPTS 

1030  VTAB (PSTN) : PRINT  "ENTER  NUMBER  OF  CONSTANT  YOU  WOULD": PRINT  "LIKE  TO  CHANGE 
(1  -";NUMB;")  OR  C":PRINT"TO  CANCEL  ==>"; 

1040  GET  ANSWER*: PR I NT 

1050  IF  ANSWER*  =  “C"  THEN  GOTO  820  'DISPLAY  CONSTANTS  AGAIN 
1 060  ANSWER  = I NT ( VAL ( ANSWER* ) ) 

1070  IF  ANSWER  <  1  OR  ANSWER  >  NUMB  THEN: PRINT:  PRINT  “TYPE  ONLY  1  NUMB: GOTO 
1030  'INPUT  ERROR 

1078  VTAB ( PSTN ): FOR  SPACE  =  1  TO  5: PRINT" 

":NEXT  'CLEARS  ANY  PRIOR  PROMPT  MESSAGES 

1080  VTAB (PSTN) : PR I NT "ENTER  NEW  VALUE  FOR  CONSTANT  ";: INPUT  "==>", QUANTITY*: PR IN 

r 

1110  QUANTITY  =  VAL (QUANTITY*) 

1120  IF  QUANTITY  =  0  THEN  PRINT: PRINT  "ILLEGAL  ENTRY": GOTO  1080 
1122  CHANGE  =  1 

1130  IF  ANSWER  =  1  THEN  TOOL 1 CENT  =  QUANTITY 

1140  IF  ANSWER  =  2  THEN  TOOL 1 FACE  =  QUANTITY 

1150  IF  ANSWER  =  3  THEN  T00L2CENT  =  QUANTITY 

1160  IF  ANSWER  =  4  THEN  TQ0L2FACE  =  QUANTITY 

1170  IF  ANSWER  =  5  THEN  CUTWIDTH  =  QUANTITY 

1180  IF  ANSWER  =  6  THEN  RS232  =  QUANTITY 

1190  IF  ANSWER  =  7  THEN  DISKSLOT  =  QUANTITY 

1200  GOTO  820  'REDISPLAY  CONTANTS 
1210  ’ 

1220  SAVE  CONSTANT  CHANGES 

1230  ' 

1240  OPEN  "0",#1, "LCONST" 

1 250  WRITE  # 1 , TOOL 1 CENT , TOOL 1 FACE , T00L2CENT , T00L2F ACE , CUTW I DTH , RS232 , D I SKSLOT 
1270  CLOSE 

1280  RETURN  'END  OF  CONSTANT  INITIALIZATION 

[290  ' tttttttttttttttttttttttttttttttttt* 

[ZOO  ’ 

1310  't***  GET  MODE  OF  OPERATION  »»»» 

320  ' 

350  HOME: PR I NT  SPC (7) ; "PROGRAM  OPERATION  CHOICES" 

352  PRINT  SPC(15);"F0R  LATHE" 

360  PRINT" 

370  PRINT: PRINT: NUMB  =  1 
372  TABl  =  5 

380  PRINT  NUMB;".  MANUAL  PART  PROGRAMMING" : PRINT: MANUAL  =  NUMB:  NUMB  =  NUMB  +  1 
382  PRINT  NUMB;".  AUTOMATED  TEXT  GENERATION  WITH": PR I NT  SPC (TABl ); "CONTROL  FROM 
APPLE": PR I NT: NUMB  =  NUMB  +  1 

390  PRINT  NUMB;".  AUTOMATED  TEXT  GENERATION  WITH":PRINT  SPC (TABl ); "CONTROL  FROM 
IBM": PRINT: NUMB  =  NUMB  +  1 
400  PRINT  NUMB;".  QUIT":PRINT 


JbO  It-  (XbKthU  <  1.65  AND  XSPEED  >  O)  OR  (ZSPEED  <  1.65  AND  ZSPEED  >r)  ^HEN  GQS 
i  2790: RETURN  ’BELOW  MIN  SPEED  ERROR 

560  IF  XSPEED  >  112  OR  ZSPEED  >112  THEN  GOSUB  2890: RETURN  'EXCEED  MAX  SPEED  ER 
DR 

570  DISTANCE=  (-1)  *  X  :  SPEED=XSPEED 
580  GOSUB  2300  ’convert  to  cy512  commands 
590  XCY»=CY» 

100  DISTANCE=Z  :  SPEED=ZSPEED 
110  GOSUB  2300 
120  ZCY*=CY* 

130  RETURN 
140  ’ 

150  ’*»»  SAVE  MOVE  IN  CY  ARRAY  tttt 
160  ’ 

170  ’IF  G*="7"  THEN  ABX^O:  ABZ=0:  CYMOVE*  ( I*/.)  ="*«G7"  :  GOTO  2270 

L80  PRINT  "LINE=";LNE7.;  ■■  XCY*=’' ;  XCY*;  *■  ZCY»="  ;  ZCY*;  "  M=";M«;"  T=‘‘;T 

190  CYMOVEt  (LNE7.,  1  )=XCY4  +  "  :  •■  +  ZCY* 

?00  IF  TOO  THEN  Mt=M*  +  "T"  +  STR4KT)  ’ADD  IN  TOOL  NUMBER 
210  CYMOVE*  (LNE7.,2)=Mt 
220  RETURN 
230  ' 

240  ’»»*  SAVE  CY  FILE  TO  DISK  »*» 

250  ’ 

260  FOR  LINES-/.  =  1  TO  TOTLINES'/. 

2/0  WRITE  #2,CYM0VE*  (LINES-/.,  1)  ,CYM0VE*(LINES-/.,2) 

280  NEX I 
2VO  RE  I  URN 
SOO  REM 

510  REM  «  ROUTINE  TO  CONVERT  DATA  TO  CY512  COMMANDS 

520  REM  t*t***t*t*tt****tr*tttttt*t**t*tt*tttt* 

530  REM 

540  IF  DISTANCE  =  0  THEN  CY$="I,N  0"  :  RETURN 

550  IF  DISTANCE  <  0  THEN  DIRECTIDN$=’‘-" 

560  IF  DISTANCE  >=  0  THEN  DIRECTION*="+" 

570  STEPS  =  CINT (ABS (DISTANCE  *  1600)) 

580  REM  »»*  CALCULATE  RATE  AND  FACTOR  FOR  CY512  *»* 

590  SS  =  SPEED  »  26.667 

TOO  IF  SS  <  43.5  THEN  SS  =  43.5 

HO  IF  SS  >  3000  THEN  SS  =  3000 

T20  RATE  =  CINT (257. 938  -  (12500!  /  SS) ) 

)30  IF  RATE  <  1  THEN  RATE  =  1 
T40  IF  RATE  >  253  THEN  RATE  =  253 

^50  FACTOR  =  CINT  ((8  »  RATE)  +  (100000!  /  SS)  -  2055.5) 

)60  IF  FACTOR  <  1  THEN  RATE  =  RATE  +  liGOTO  2450 

\70  REM 

^80  REM  t  CHECK  TO  SEE  IF  R,  AND  F  ARE  BEST 

>90  REM  tt*tt**tt*ttt***t**t*tt***ttttt*t*tttt*tt* 

iOO  FMIN  =  FACTOR  -  1:F  =  FACTOR :FPLUS  =  FACTOR  +  1 

ilO  FEXP=FMIN:  GOSUB  2600 

>20  ERRMIN  =  SSERR 

130  FEXP=FPLUS: GOSUB  2600 

140  ERRPLUS  =  SSERR 

50  FEXP  =  K: GOSUB  2600 

r60  IF  ERRMIN  >=  SSERR  AND  ERRPLUS  >=  SSERR  THEN  GOTO  2650 
/u  11-  ERRMIN  <  SSERR  THEN  FACTOR  =  FACTOR  -  1 :  GOTO  2490 
80  IF  ERRPLUS  <  SSERR  THEN  FACTOR  =  FACTOR  +  1:G0T0  2490 


570  IF  XX7.=  1  THEN  X=VAL  (MID»  (SLINES,  XP/i+l,CHAR*/.-XP7.-l )  )  :  XX7.=0:  GOTO  1650 
580  IF  Z27.=  l  THEN  Z=VAL  (MID*  (SEINE*,  ZP7+1 ,  CHAR7.-ZP7.-1 )):  ZZ7.=0:  GOTO  1650 
590  ’  IF  I  I7.=  l  THEN  I=VAL  (MID*  (SEINE*,  IPy.4-1 ,  CHAR7.-IP7.-1 )  )  :  1 17.=0:  GOTO  1360 

600  ’IF  JJ7.=  1  THEN  J=VAE  (MID*  (SEINE*,  JP7+1 ,  CHAR7.-JP7.-1 )):  JJ7.=0:  GOTO  1360 

610  ’IF  KK7.=  1  THEN  K= VAE  ( M I D*  ( SE I NE* ,  KP7+ 1 ,  CHAR7.-KP7.- 1 )  )  :  KK7.=0 :  GOTO  1 360 

6:^'0  IK  K»-7.=  l  THEN  F=VAE  (MID*  (SEINE*,  FP%+1 , CHAR7.-FP7.-1 )):  FF7.=0:  GOTO  1650 
630  1  h  MM7.=  1  THEN  M*=M  I D*  ( SE  I  NE* ,  MP7.+ 1 ,  CHAR7.-MP7.- 1 )  :  MM7.=0 

CiHO  IK  il  /.=  l  THEN  T=VAE(MID*(SEINE*,TP7,+  1,CHAR7.-TP7.-1)  )  :TT7.=0:  IF  T  <=  O  OR  T>  M 
IXTOOES7.  THEN  PRINT:  PRINT  “TOOE  NUMBER  EXCEEDS  MAXIM 
IM  DK“;MAXT00ES7.:G0SUB  3190 

650  IF  C*="N"  THEN  NP7.=CHAR7.: NN7.=  1 : GOTO  1770 

660  IF  C*="G"  THEN  GP-y'=CHAR7.:  GG7.=  1 :  GOTO  1770 

670  IF  C*="X"  THEN  XP7.=CHAR7.:  XX7.=  1 :  GOTO  1770 

680  IF  C*="Z"  THEN  ZP7.=CHAR7.:  ZZ7.=  1 : GOTO  1770 

690  ’IF  C*="I’’  THEN  I  P7.=CHAR7. :  1 1 7.=  1 :  GOTO  1470 

700  ’IF  C*="J'‘  THEN  JP7.=CHAR7.:  J  J7.=  l :  GOTO  1470 

710  ’IF  C*="K‘'  THEN  KP7.=CHAR7.:  KK7.=  1 :  GOTO  1470 

720  IK  E*=‘  K"  THEN  FP7.=CHAR7.:  FF7.=  1 :  GOTO  1770 

730  IF  C*="M"  THEN  MP7.=CHAR7.:  MM7-=1 :  GOTO  1770 

/mj  It-  L»=-  |"  THEN  TP7.=CHAR7.:TT7.=  1:G0T0  1770 

750  IK  L*="»  -  I  HEN  EH«R7.=ENGTH7.:  GOTO  1770 

760  bUiDUti  3060:CHAR7.  =  ENGTH7.  ’  lEEEGAE  CHARACTER  ERROR 

/ /U  KtIUKN 

/tJU  • 

/VU  '*»»  INTERPOEATE  MOVE  t** 
auo  ' 

810  ’««»«««  TAKE  UHKE  UK  G  CODES  tttttt 
0^0  ■ 

030  IK  L.»="-  uuro  1940  ’NO  NEW  G  COMMANDS 

OHb  It-  b*=  U<J"  I  MEN  PFEAG7.=  1;G0T0  1940  ’SET  FEAG  FOR  POINT  TO  POINT  POSITIONING 

ODO  It-  b»=  <ji  IMEN  HFEAG7.=0:G0T0  1940  ’SET  FEAG  FOR  EINEAR  INTERPOEATION 

860  IK  b*="05“  THEN  ABX=0  :  ABZ=0:G0T0  1940  ’MAKE  PRESENT  EOCATION  NEW  HOME  POS 

I  iUN 

870  IK  G*="92"  THEN  ABX=X ; ABZ=Z : X=0: Z=0: GOTO  1940  ’PREEOAD  ABSOEUTE  REGISTERS  W 
TH  THE  X  AND  Z  IN  PRESENT  EINE  OF  TEXT 

880  IF  G*="90"  THEN  ABFEAG7.=  1 :  GOTO  1940  ’SET  FEAG  FOR  ABSOEUTE  DIMENSION  INPUT 

8VO  IK  G*="91"  THEN  ABF EAG7.=0:  GOTO  1940  ’SET  FEAG  FOR  INCREMENTAE  INPUT 

900  IF  G*="02"  THEN  GOSUB  1840: RETURN  ’DO  ARC  INTERPOLATION 

910  PRINT:PRINT  •'G";G*;''  IS  NOT  A  LEGAL  G  FUNCTION  CODE":GOSUB  3190  ’  INTERPRET  A 
ION  ERROR 
920  ’ 

930  ’  DO  G  FLAG  COMMANDS 
940  ’ 

950  IF  ABFLAG7.=  1  THEN  X=X  -  ABX:Z  =  Z  -  ABZ  ’IF  IN  ABSOLUTE  D I  MENS  I  ON  INPUT  MODE  C 
MVERTS  X  AND  Z  TO  INCREMENTAL  D I MENS I ONES 

960  IF  PFLAG7.=  1  THEN  XSPEED=VRAPID:  ZSPEED=VRAPID:  XDIST=X :  ZDIST=Z :  GOTO  2070  ’FOR 
“'UiNi  lu  ruiNI  POSITIONING  GO  AS  RAPID  AS  POSSIBLE 
y/u  ' 

780  ’*»*  FIND  X  AND  Z  DISTANCES 

i'iK>  ’ 

JOO  ABX=ABX  +  X:ABZ=ABZ  +  Z  ’UPDATE  ABSOLUTE  REGISTERS 

Jio  It-  x=0  AND  Z=0  THEN  XCY*="R  250,  S  1,F  1,N  O, +" :  ZCY*="R  250,  S  1,F  1,N  0,+":R 
I  URN 

J20  TLDIST=SUK(X»X+Z»Z) 

J30  I inE=ILUlST/F 

J40  X8PhED=A8b(X/ r IME)  :  ZSPEED=ABS (Z/TIME) 


1110  'GET  MODE 

1120  VTAB(5) :PRINT"DQ  YOU  WANT  THE  PART  PROGRAM  EXECUTED” : PR I NT “AFTER  IT'S  BEEN 
INTERPRETED?  (Y/N)  ===>";: GET  ANSWER* 

1130  IF  ANSWER*="N"  THEN  M0DE7.=3:  GOTO  1150 
1140  IF  ANSWER*<>“Y“  GOTO  1120 
1150  VTAB(5)  :HTAB(1)  .-PRINT" 

PRINT" 

":VTAB(5) : RETURN 

1160  ' 

1170  '  INPUT  FILE  SUBROUTINE 
1180  ’ 

1190  ON  ERROR  GOTO  3010 

1200  IF  OPENED  17.=0  THEN  OPEN"  I  " ,  #1 ,  RS274*:  OPENED17.=  l :  ELSE  GOTO  1250 
1210  P=INSTR(RS274*, ". ") 

1220  CY512*=MID*(RS274*, 1,P-1)  +  ".CYC" 

1230  IF  0PENED27.=0  THEN  0PEN"0"  ,  #2,  CY512*:  0PENED27.=  1 

1240  ON  ERROR  GOTO  O 

1250  'LOAD  A  SET  OF  LINES  FROM  FILE 

12/0  T0TLINES7.=MAXLINESy.:EXMAXLINES'/.=  l  'UNLESS  DROPS  OUT  OF  LOOP  EARLY,  EXCEEDS 
1AX  NUMBER  OF  LINES  INTERPRETED  FLAG  IS  SET 
1270  FOR  LINES'/.  =  1  TO  MAXLINES'/. 

1280  IF  EOF(l)  THEN  GOTO  1320 
1290  INPUT  #  1,  SL I NE*  (LINES'/.) 

1300  IF  SL I NE*  (LINES'/.)  =  "*"  THEN  TOTLINES'/.  =  LINES'/.  -  1  ;  EXMAX LINES'/.=0:  LINES'/.=M 
!^XLINES'/. 

1310  NEXT 
1320  RETURN 
1330  REM 

1340  REM  »»»»*  SEPARATE  PARAMETERS  AND  CHECK  FDR  ERRORS  **»t» 

1350  REM 

1360  ' INITIAL ZE  ALPHA  SEARCH  VARIABLES 
1370  X=0: Z=0:G*="":M*="":T=0 

1380  LNGTH'/.=LEN(SLINE*)  :  IF  LNGTH'/.  >  MAXCHAR'/.  THEN  PRINT  "LENGTH  OF  INPUT  LINE  EX 
:EEDS  maximum  allowable  0F";MAXCHAR'/.:60SUB  3190:  RETU 
?N  ’ INTERPRET  ERROR 
1390  FOR  CHAR'/.  =  1  TO  LNGTH'/. 

1400  C*=MID*(SLINE*,CHAR'/.,  1) 

1410  G00D'/.=0 

1420  IF  C*  >=  "A"  AND  C*  <=  "Z"  THEN  GOSUB  1540: GOTO  1480  'CHECK  FOR  ALPHA  COMM 
^ND 

1430  IF  C*="*"  THEN  GOSUB  1 540 :  CHAR'/.=LNGTH'>4 :  GOTO  1480 
1440  IF  C*="  +  "  OR  C*="-"  OR  C*="."  THEN  G00D'/.=  1 

1450  IF  C»="  "  THEN  SLINE*=LEFT*  (SLINE*,  CHAR'/.-l )  +  MID*  (SLINE*,  CHAR'/.+  l );  GOTO  140 
>  ’  1 1.:?  AND  STARTS  AGAIN  FOR  THIS  CHARACTE 

( 

.460  IF  C*>=  "O"  AND  C*<=  "9"  THEN  G00D*/.=  1 

4/0  IF  GU0D'/.=0  THEN  GOSUB  3060:  CHAR'/.  =  LNGTH'/.  'ILLEGAL  CHARACTER  ERROR 
480  NEXT 

490  PRINT"SLINE=";SLINE* 

500  PRINT"N=";NLINE'/.;  "  G=";G*;"  X=";X;"  Z=";Z;"  M=";M*;"  T=";T 
510  RETURN 
520  REM 

530  REM  tttttt  CHECK,  SORT,  AND  STORE  NEW  PARAMETER  ttttttt 
540  REM 

550  I F  NN'/=  1  THEN  NL I  NE'/.=VAL  ( M I D*  ( SL  I  NE* ,  NP'/.+ 1 ,  CHAR'/.-NP'/.- 1 )  )  :  NN'/.=0 ;  GOTO  1 650 
560  IF  GB'/.=  1  THEN  G*=M ID*  (SLINE*,  GP'/.-l  ,  CHARX-GP'/.-l ):  GG*/.=0:  GOTO  1650 


650  IF  >=  "  O”  AND  M*  <=  *■  3"  GOTO  700  'STOP  PROGRAM  EXECUTION  COMMAND 
670  IF  Mt="  6"  THEN  GOSUB  3490  ’CHANGE  TOOL  COMMAND 
680  NEXT 
682  ’ 

690  IF  EXMAXLINEB7.=  1  THEN  GOTO  580  ’IF  FILE  EXCEEDEDS  MAXLINES  HANDLED  IN  ONE  SE 
T  DO  AGAIN 
692  ’ 

700  CLOSE:  OPENED  1%=0:0PENED27.=0 
702  ’ 

710  IF  CALLER  <>  THEN  GOTO  740 
720  GOSUB  3760  ’DO  PART  AGAIN? 

730  IF  CST0P=0  GOTO  540 
732  ’ 

740  ’EXIT 
742  ’ 

760  D0NE*=CHR4K  1 )  ’MUX  POLLING  ATTENTION  GETTER 

780  IF  CALLER 1$  <>  " "  THEN  Q*=USR7 (DONE*) : CHAIN  CALLER 1* 

790  END 
800  ’ 

802  ’ tt*t*tt***t****t*t**ttttttttttttttt 

804  ’ 

810  ’  »»*  INITIALIZE  VARIABLES  AND  COMMUNICATION  SUSBROUTINES 
820  ’ 

830  MAXLINESy.=  100 
840  MAXCHARV.=80 
850  BELL*=CHR* (7) 

860  DIM  SLINE*  (MAXLINEB7.) 

870  DIM  CYM0VE*(MAXLINES7.,2)  ’CY512  COMMANDS, M  COMMANDS 

880  CY7.=  1;MC7.=2  ’POSITION  IN  ARRAY  OF  CY  COMMANDS  AND  M  COMMANDS 

890  DIM  CY*(2)  ’HOLDS  SEPARATED  FOR  X  AND  Z  AXIS 

900  XP7,=  1:  ZP7,=2  ’POSITIONS  OF  X  AND  Z  PARAMETERS 

910  YCY*="R  250, S  1,F  1,N  0,+” 

920  VRAPID=100  ’VERY  FASTEST  FEEDRATE  X  OR  Z  AXIS  CAN  TRAVEL 
930  MAXT00LS7.=9  ’HIGHEST  TOOL  NUMBER  ALLOWED 
940  ’COMMUNICATION  SUBROUTINES 

950  ’  C ALLER*=  "  LATHE .  I  NT  "  :  CL  I  NE=700  :  PRGM*=  "  X  X  X  X  :  SL I  NE=999 :  HF I  LE*=  "  X  X  X  X  ’■  ’  SET  PAR 
AMETERS  TO  RETURN  TO  THIS  PROGRAM 

960  'CHAIN  " LOAD ASM ALL  'LOADS  ALL  ASSEMBLY  LANGUAGE  SUBROUTINES 

970  HOME: PRINT  "LATHE  CNC  EXECUTOR  -  BYU  M 

INI  LAB 

980  PRINT: PRINT" - 

- " : PRINT: PRINT: PRINT 

990  RETURN 
1000  ’ 

1010  ’  GET  NAME  OF  FILE  TO  INTERPRET 

1020  ' 

1030  IF  CALLERl*  <>  ""  THEN  X=INSTR (RS274*, " . " > : CY512*=LEFT* (RS274*, X-1 ) +" . CYC" 
: RETURN  'PROGRAM  BEING  CHAINED  TO 

1040  VTAB(5) : INPUT  "PROCESS  WHAT  CNC  FILE  ";RS274* 

1050  TEST*=RIGHT*  (  RS274*,4  ) 

1060  IF  TEST*=".CYC"  THEN  M0DE7.=2: CY512*=RS274*:  RETURN  'EXECUTE  PRE I NTERPRETED  F 
ILE 

1070  IF  LEFT*(  TEST*, 1  )  =  "."  THEN  GOTO  1090 
1080  RS274*  =  RS274*  +  ".CNC" 

1090  IF  MID*(RS274*,2, 1)  =  THEN  LLL  =  14  ELSE  LLL  =  12 

1100  IF  LEN(RS274*) >LLL  THEN  PR I NT: PR I NT  "FILENAME  TOO  LONG !": PRINT: GOTO  1040 


250  REM  tttttttttttttttttttttttttt 

255  REM  *  POKE  BYTES  S/R  » 

260  REM  tttttttttttttttttttttttttt 

265  FOR  I  =  1  TO  BYTES 

270  LOCATION=ADDRESS  +  (I  -  1) 

275  CODE*=“S(H"  +  MID*  (HLINEt ,  (8  +  (I  *  2)),2) 

280  CODE=VAL(CODE*) 

285  POKE  LOCATION, CODE 

290  NEXT  I 

295  RETURN 

300  DEF  USR1=&HC409 

310  DEF  USR2=&HC416 

320  DEF  USR3=8cHC423 

324  ’ tt***ttt*tttt*tt*t***tttt**ttt*ttt 

330  ’ 

340  '  »»t  MAIN  BODY  OF  PROGRAM  *»» 

350  ’ 

354  ’ t*tt*t**t**tttttt**tttt*t*t*t***t*t 

360  ’INTERPRET  FILE 
370  ’ 

380  BOSUB  800  ’INITIALIZE  VARIABLES  AND  COMMUNICATION  SUBROUTINES 
384  ’ 

390  GOSUB  1020  ’GET  FILE  NAME 
394  ’ 

400  IF  M0DE7.  =  2  THEN  LFILE'/.  =  1 :  GOTO  540  'EXECUTE  PRE INTERPRETED  FILE 
402  ’ 

410  GOSUB  1180  ’INPUT  A  SET  OF  LINES 
420  PRINT" INTERPRETING  FILE"; 

422  ’ 

430  FOR  LNE7,  =  1  TO  T0TLINES7. 

440  SL I  NE*=SL  I NE*  ( LNE7. ) 

450  BOSUB  1350  ’SEPARATE  PARAMETERS 

460  GOSUB  1790  ’ INTERPOLATE  MOVE 

470  GOSUB  2150  ’SAVE  MOVE  TO  CY  ARRAY 

480  PRINT". :NEXT  ’INTERPRET  NEXT  LINE  OF  RS2374  FILE 

484  ’ 

490  GOSUB  2250  ’SAVE  CY  ARRAY  TO  DISK 

494  ’ 

500  IF  EXMAXLINES7.=  1  GOTO  410  ’FILE  EXCEEDED  MAXIMUM  LINES  HANDLES  IN  ONE  SET  SO 
LOAD  IN  NEXT  SET 

510  WRITE  42,"****","  CLOSE :  OPENED  1  •/.=0 :  OPENED27.=0  ’CLOSE  ALL  FILES,  LAST  ENTRY 

IN  FILE  IS  EOF  MARKER  FOR  CY512  FILE 

520  IF  INERR0R7.=  1  THEN  GOTO  740  ’IF  INTERPRETATION  ERROR  OCCURED  THEN  EXIT 
530  ’ 

540  ’»»»  EXECUTE  FILE  »»» 

550  ’ 

560  IF  M0DE7.=3  THEN  GOTO  740  ’EXIT  BECAUSE  ISN’T  TO  BE  EXECUTED 
562  ’ 

570  PR  I  NT  SPRINT  "EXECUTING  FILE"  ;  :  STRTLINE7.=  1 

580  IF  LFILE%=1  THEN  PRlNT"LOADING  IN  FILE": GOSUB  3270  ’FILE  EXCEEDED  MAXIMUM  LI 
NES  HANDLED  IN  ONE  SET  SO  LOAD  FILE  FORM  DISK 
582  ’ 

590  FOR  LNE7.=1  TO  T0TLINES7. 

610  GOSUB  3370  ’EXECUTE  X,Z  MOVE 

630  IF  CYM0VE*(LNE7.,MC7.)  =  ""  THEN  GOTO  680  ’  NO  M  COMMAND 

S40  M*=STR*(VAL(CYM0VE*(LNE7.,MC7.)  )  )  ’FIND  M  COMMAND  VALUE 


10  REM  tttttttttttttttttttttttttttttttttttttttttttttttttttttt 

20  REM  » 

30  REM  »  LATHE. I NT  BY  GREGORY  J.  PETO 

40  REM  t  -  BYU  CAM  LAB  - 

50  REM  *  RS274  -  CY512  TRANSLATOR  MAY,  1984 

60  REM  » 

62  REM  »  ADAPTED  FROM  LINTERP.BAS  AND  CYEXEC.BAS  BY  JUSTIN  D.  REDD 
64  REM  * 

70  REM  «  THIS  PROGRAM  READS  RS274  STANDARD  NUMERICAL  CONTROL. 

74  RfcM  »  IHt  RS274  FILE  MUST  HAVE  THE  EXTENT I ON  .CNC. 

80  REM  t  CODES  FROM  A  TEXT  FILE  AND  TRANSLATES  THEM  TO 
90  REM  »  COMMANDS  FOR  THE  CY512  STEPPER  MOTER  CONTROLLER  . 

94  HEM  t  AND  WILL  THEN  EXECUTE  THE  FILE  IF  THAT  OPTION  IS  CHOSEN. 

100  REM*  THE  RESULTING  CY512  COMMANDS  ARE  STORED  IN  A  TEXT 
110  REM*  FILE  OF  THE  SAME  NAME  WITH  THE  EXTENSION  OF  .CYC 
114  REM*  MIN  AXIS  SPEED  IS  1.65  IN. /MIN. 

116  REM*  MAX  AXIS  SPEED  IS  112  IN. /MIN. 

118  REM*  ***  CHAINING  TO  THIS  PROGRAM  »** 

120  REM*  CALLER  PROGRAM  SHOULD  PUT  ITS  OWN  NAME  IN  CALLER1«  AND  IT’S 
122  REM*  RETURN  LINE  NUMBER  IN  SLINEl. 

124  REM*  THE  NAME  OF  THE  FILE  TO  BE  INTERPRETED  SHOULD  BE  PUT  IN  RS274* 
126  REM*  IF  EXECUTING  PRE INTERPRETED  FILE  THEN  PUT  IT’S  NAME  IN  CY512* 
128  REM*  AND  SET  MODE*/.  =  2. 

130  REM****************************************************** 

132  ’ 

134  ’  CHECK  FOR  CYDRIVER.HEX  IN  MEMORY 

136  ’ 

137  HOME 

138  PRINT: INVERSE: PRINT  "CHECKING  FOR  CYDRIVER. HEX" ;: NORMAL: PRINT 
140  MESS*="" 

142  FOR  CHAR  =  O  TO  6 

144  LOCATION  =  &HC4F1  +  CHAR 

1 46  CHAR«=CHR* ( PEEK ( LOC AT ION)) 

148  MESS*=MESS*  +  CHAR*:CHAR$=  "" 

150  NEXT  CHAR 

152  IF  LEFT* (MESS*, 5)  <>  "VALID"  THEN  GOTO  158 
154  X*=MID* (MESS*, 6,1) 

156  IF  X*="l"  THEN  GOTO  300 

158  PRINT: INVERSE: PRINT  "LOADING  CYDRIVER.HEX  AT  C400H" NORMAL: PRINT 
160  HF I LE*=" CYDRIVER. HEX" 

170  0PEN"I",#1,HFILE* 

175  GOSUB  195 
180  GOSUB  250 
185  GOTO  175 
190  REM 

195  REM  ************************** 

200  REM  *  READ  LINE  S/R  * 

205  REM  ************************** 

210  REM 

215  INPUT  #1,HLINE« 

220  HBYTES»="«(H"  +  MID*  (HLINE*,  2,  2) 

225  HADDRESS*="S.H"  +  MID*  (HLINE*,  4,  4) 

230  B YTES= VAL ( MBYTES* ) : ADDRESS* V AL ( HADDRESS* ) 

235  IF  BYTES=0  AND  ADDRESS*©  THEN  HOME : CLOSE : PR I NT  "PROGRAM  LOADED" 

240  RETURN 
245  REM 


4990  ZNUL-Oi Z*ST0CKLEN  -  TOOL2FACE  -(OFFSET (I )  +  CUTREF  /  2  ♦  FUD6E)  +  CUTMIDTH 

5000  Z1=Z  '1ST  MOVE 

5004  XNUL=1 

5010  FEEDRATE=SHORT 

5020  60SUB  2820  'PUT  IN  MOVE  ARRAY 

5030  'MOVE  TOWARD  CENTER 

5040  XNUL=0; X*STOCKDIAM  /  2  +  CLRNC 

5050  ZNUL=1 

5060  FEEDRATE-CUTOFFSPEED 

5070  GOSUB  2820 

5080  'MOVE  AWAY  FROM  CENTER 

5090  X=  -X 

5100  FEEDRATE*RAPID 

5110  GOSUB  2820 

5120  'RETURN  TO  START  POSITION 

5130  X=  -XI 

5132  ZNUL=1 

5134  FEEDRATE=SHORT 

5136  GOSUB  2820 

5140  ZNUL=0:Z*  -Z1 

5144  XNUL=1 

5146  FEEDRATE=RAPID 

5150  GOSUB  2820 

5160  C0MMAND=1: X4=STP4 

5170  GOSUB  2820 

5180  RETURN 

5190  *  tttttttttttttttttttttttttt* 

5200  ' 

5210  SAVE  DATA  TO  DISK  «t«t« 

5220  ' 

5230  HOME 

5240  PRINT: PRINT-WRITING  TO  DISK"; 

5250  FILENAME<="L"  +  PRTNUMB4  ♦  ".CNC” 

5260  OPEN  -0”,#1, FILENAME* 

5270  'WRITE  #1 , STOCKLEN, FEEDREF, CUTREF, STOCKDI AM  'FILE  HEADER 
5280  'THIS  LOOP  WRITES  OUT  MOVES 

5290  FOR  NUMB7.  =  1  TO  COUNT- 1  'COUNT  HOLD  VALUE  OF  NEXT  MOVE 
5300  PRINT  #1,  "N”;NUMB7.;M0VE*(NUMB7.) 

5302  PRINT”."; 

5310  NEXT 

5312  PRINT  #1,"*" 

5314  CLOSE 

5320  COUNT  =  1  'REINITIALIZE  NUMBER  OF  MOVES 

5330  RETURN 

5340 


4460  'MOVE  TOOL  AWAY  FROM  PART 

4470  XNUL=0:X*  -CL»^  'C 

4480  Z^CLRNC 

4490  FEEDRATE-SHORT 

4500  GOSUB  2820 

4510  'MOVE  BACK  TO  RIGHT  END 

4520  XNUL-1 

4530  Z-CUTL 

4540  FEEDRATE-RAPID 

4550  GOSUB  2820 

4560  NEXT 

4570  RETURN 

4580  ' 

4600  ' 

4610  DO  FINISH  CUT  tttttt 

4620  ’ 

4630  'MOVE  RIGHT  TO  POSITION  TO  DO  FINISH  FACE  OF  RIGHT  END 
4640  XNUL-1 

4650  ZNUL=0:Z=  -(CUTREF  /  2  +  CLRNC) 

4660  FEEDRATE-SHORT 

4670  GOSUB  2820  'PUT  IN  MOVE  ARRAY 

4680  'MOVE  TOWARD  CENTER 

4690  XNUL=0:X-DMENSION(NUMBDIAM,WDTH)  /  2  +  CLRNC  'NUMBDIAM  IS  LAST  DIAM  -  THE  D 

lAMETER  OF  THE  FACE 

4700  ZNUL-1 

4710  FEEDRATE-FEEDREF 

4720  GOSUB  2820 

4730  'MOVE  AWAY  FROM  CENTER 

4740  X-  -X  CLRNC  'MOVE  OUT  SAME  DISTANCE  MOVED  IN  AND  THEN  BACK  IN  A  CLEARANCE 
4750  GOSUB  2820 

4760  'DO  A  FINISH  PASS  FOR  EACH  DIAMETER 
4770  FOR  DIAMNUMB  -  NUMBDIAM  TO  1  STEP  -1 
4780  'MOVE  LEFT  LENGTH  OF  DIAMETER 
4790  XNUL-1 

4800  ZNUL-0:Z-  -DMENS ION (DIAMNUMB, LENGTH) 

4810  GOSUB  2820 

4820  'MOVE  AWAY  FROM  CENTER  TO  MAKE  NEXT  LEFT  MOVE 
4830  IF  DIAMNUMB  -  1  THEN  GOTO  4870  'ALREADY  FINISHED 

4840  XNUL-0:X-  -( (DMENSION (DIAMNUMB- 1 , WDTH)  -  DMENS ION (DIAMNUMB, WDTH) )  /  2) 

4850  ZNUL-1 
4860  GOSUB  2820 
4870  NEXT 

4880  'STOP  FOR  TOf^L  CHANGE.  REINITIALIZES  POSITION 

4890  C0MMAND=1:X4=T00L4+"T2"  'COMMAND  TO  INSERT  TOOL  NUMBER  2  -  THE  CUTOFF  TOOL 
4900  60SUB  2820 
4910  RETURN 
4920  * 

4930  ' 

4940  DO  CUTOFF 

4950  ' 

4960  'MOVE  TO  POSITION  TO  START  CUTOFF 

4970  XNUL-0:X-  -(STOCKDIAM  +  CLRNC)  +  T00L2CENT 

4980  Xl-X  '1ST  MOVE 

4984  ZNUL-1 

4985  FEEDRATE-SHORT 

4986  GOSUB  2820  'PUT  IN  MOVE  ARRAY 


3930  2NUL*0: Z=ST0CKLEN  -  TOOLIFACE  -  CUTREF  'MOVES  HORIZONTALLY.  SETUP  TO  REFINI 
SH  FACE  OF  END 

3940  FEEDlNlT«liFEEDRATE=RAPID 
3950  GOSUB  2820  'PUT  IN  ARRAY 

3960  'MOVW  TOWARD  CENTER  TO  TOUCHUP  FACE  OF  END 

3970  X=STOCKDIAM  /  2  +  CLRNC 

3980  ZNUL=1 

3990  FEEDRATE=FEEDREF 

4000  GOSUB  2820 

4010  'MOVE  AWAY  FROM  FACE 

4020  XNUL-1 

4030  ZNUL=0: Z=CLRNC 

4040  FEEDRATE=SHORT 

4050  GOSUB  2820 

4060  'MOVE  AWWAY  FROM  CENTER 

4070  XNUL=0:X=  -X 

4080  ZNUL=1 

4090  GOSUB  2820 

4100  RETURN 

4110  * 

4120  ' 

4130  '»«»$««  DO  ROUGH  CUT  ttittt 
4140  ’ 

4150  FOR  DIAMNUMB'/.  =  1  TO  NUMBDIAM 

4160  'DOES  A  ROUGH  CUTTING  PROCEDURE  FOR  EACH  DIAMETER 
4170  GOSUB  4250  'FIND  NUMBER  OF  PASSES  AND  DEPTH  OF  EACH 
4180  GOSUB  4330  'DO  ROUGH  PASSES 
4190  NEXT 
4210  RETURN 

4220  ' tttttttttttttttttttttttttttt 

4230  ’ 

4240  ’*  FIND  ROUGH  CUT  DEPTH  Sc  NUMBER  * 

4250  ' 

4252  IF  DIAMNUMBX  =  1  THEN  TOTCUT= (STOCKDIAM-DMENSION ( 1 , WDTH) ) /2: GOTO  4270  'FIRS 
T  CUT  IS  FROM  STOCK  FACE  DOWN  TO  DIAM  1 

4260  TOTCUT=<DMENS I ON (DIAMNUMBX  -  1,WDTH)  -  DMENSION (DIAMNUMBX, WDTH) )  /  2  'FIND 
TOTAL  WIDTH  TO  BE  CUT  OUT 

4270  NUMBCUTSX=CINT(TOTCUT  /  CUTREF)  'FINDS  NUMBER  OF  PASSES  REQUIRED 
4280  CUTDEPTH=TOTCUT  /  NUMBCUTSX  'FINDS  EXACT  CUT  DEPTH  OF  EACH  PASS 
4290  RETURN 
4300  ’ 

4310  ' 

4320  DO  ROUGH  PASSES 

4330  ' 

4340  CUTL=OFFSET (DIAMNUMBX)  'FINDS  LENGTH  OF  EACH  PASS 

4350  FOR  CUTNX  =  1  TO  NUMBCUTSX 

4360  'MOVE  TOWARD  CENTER  FOR  PASS 

4370  XNUL=0:X*CUTDEPTH  +  CLRNC 

4380  ZNUL«1 

4390  FEEDRATE»SHORT 

4400  GOSUB  2820  'PUT  IN  MOVE  ARRAY 

4410  'DO  PASS 

4420  ZNUL=0:Z*  -(CUTL  +  CLRNC) 

4430  XNUL«1 

4440  FEEDRATE»FEEDREF  'RATE  CHOSEN  BY  PROGRAMMER 
4450  GOSUB  2820 


3331  READY*="PL0ADED"+CHR*<13> 

3332  Q*=USR7( READY*)  'SE^'D  READY  SIGNAL  TO  IBM 

3334  Q*=USR8(IBM*) :PRINT“SENT  PLOADED.  IBM  SENT  -=>“;IBM* 

3335  BAD*=”BAD"+CHR*(13) 

3336  X*0:X=INSTR(IBM*,“OK")iIF  X=0  THEN  PRINT: PR I NT "ERROR  RECIEVING  FROM  IBM":Q* 
»USR7 (BAD*) : GOTO  3332 

3338  READY*="GOOD"+CHR*  < 13) : Q*»USR7 (READY*) 

3340  ’Q*=USR8(PRTNAME*)  'PART  NAME 

3342  'PRINT"PART  NAME  RECEIVED  ==>" ;PRTNAME* 

3344  Q*=USR8(PRTNUMB*)  'PART  NUMBER 

3346  PRINT"PART  NUMBER  RECEIVED  =>-;PRTNUMB* 

3350  Q*=USRB(PRTFMLY*)  'PART  FAMILY 

3360  Q*=USR8(ANSWER*) :NUMBDIAM  =  VAL (ANSWER*)  'NUMBER  OF  DIAMETERS 
3364  PRINT”NUMBER  OF  DIAMETERS  «==>";NUMBDIAM 
3370  Q*=USR8  ( ANSWER* )  :FEEDREF  VAL  (ANSWER*)  'FEEDRATE 

3374  PRINT"FEED  RATE  ===>"; FEEDREF 

3380  Q*=USR8 ( ANSWER* ) rCUTREF  =  VAL (ANSWER*)  'CUT  DEPTH 
3384  PR I NT "CUT  DEPTH  ===>"; CUTREF 

3390  Q*=USR8(ANSWER*) :STOCKDIAM  =  VAL (ANSWER*)  'STOCK  DIAMETER 
3394  PRINT"STOCK  DIAMETER  ==*>"; STOCKDI AM 

3400  Q*=USR8 (ANSWER* ) :STOCKLEN  »  VAL (ANSWER*)  'STOCK  LENGTH 

3401  PR I NT "STOCK  LENGTH  ===>"; STOCKLEN 

3402  FOR  C0UNTERV.=1  TO  NUMBDIAM 

3404  Q*=USR8  ( ANSWER* )  :  DMENS I  ON  ( COUNTER*/.  ,  LENGTH )  VAL  (  ANSWER* ) 

3405  PRINT"LENGTH  D I  AM.  COUNTER*/;  "  *==>";  DMENS  I  ON  (COUNTER/,  LENGTH) 

3406  Q*=USR8 ( ANSWER* ) : DMENS I ON ( COUNTER/ , WDTH ) = VAL ( ANSWER* ) 

3407  PR1NT"WIDTH  D I AM. COUNTER/; "  ===>"; DMENS I ON (COUNTER/, WDTH) 

3408  NEXT 

3409  INPUT  "HOLDING", HOLD* 

3410  RETURN 
3720  RETURN 
3740  ' 

3750  '**t*  INITIAL  LATHE  CALC'S 
3760  ' 

3770  HOME: PR I NT "CALCULATING  LATHE  MOVES"; 

3772  C0MMAND=1:X*=T00L*+"T1":G0SUB  2820  '1ST  LINE  IS  COMMAND  TO  PUT  IN  TOOL  #1 

3780  'CALCULATE  DISTANCE  FROM  LEFT  REFERENCE  FOR  EACH  DIAMETER 

3790  FOR  DIAMNUMB  =  1  TO  NUMBDIAM 

3792  OFFSET (DIAMNUMB) =DMENSION (DIAMNUMB, WDTH) 

3800  FOR  OTHERDIAM  =  DIAMNUMB  +  1  TO  NUMBDIAM 

3810  OFFSET (DIAMNUMB)  =  OFFSET (DIAMNUMB)  +DMENS I ON (OTHERDIAM, LENGTH) 

3820  NEXT: NEXT 

3830  OFFSET (1)  =  OFFSET ( 1 )  +  WIDTHCUT  'ADDS  WIDTH  OF  CUT  OFF  TOOL  TO  1ST  DIAMETE 
R 

3840  'ALLOW  FOR  FINISH  CUT 
3850  FOR  DIAMNUMB  =  1  TO  NUMBDIAM 

3852  DMENSION  (DIAMNUMB,  WDTH)  =  DMENS  I  ON  (DIAMNUMB,  WDTH)  CUTREF/2  'ADDS  WIDTH  SO 

THAT  AFTER  ROUGH  CUT  WILL  BE  SLIGHTLY  OVER  SIZED 
3854  NEXT 
3860  RETURN 
3870  * 

3880  ' 

3890  '*«t«  DO  FREE  END  FACE  *««« 

3900  ' 

3910  'MOVE  TO  START  POSITION 

3920  XNUL=0:X=T00L1CENT  -  STOCKDIAM  /  2  -  CLRNC  'MOVES  TOOL  BACK  SO  CAN  MOVE 


2860  OUTLINE^-"" 

2870  IF  COMnANO=l  THEN  OUTLINE«=X»  +  “»"!COMMAND=0: GOTO  2912  'STORE  COHMAND  IN  A 
RRAY 

2880  IF  XNUL  *  O  THEN  OUTLINE*="X"  +  STR*(X)iTOTX  *  TOTX  +  X 

2890  IF  ZNUL  -  O  THEN  OUTLINE**OUTLINE»  +  "Z"  +  STR« (Z) : TOTZ=TOTZ  +  Z 

2900  IF  FEEDINIT  =  O  THEN  INVERSE: PR I NT "YOU' LL  NEED  TO  GIVE  FEEDRATE  AN": PRINT" I 

NITIAL  VALUE  OR  MOVE  CANNOT  BE  DONE. ": NORMAL: PRINT: P 

RINT"HIT  ANY  KEY  TO  CONTINUE" ;: GET  HOLD»:RETURN 

2910  OUTLINE«=OUTLINE«  +  "F"  +  STR* (FEEDRATE)  +"*" 

2912  'STORE  IT 

2920  MOVE*  ( COUNT )  =OUTL  I NE* 

2930  COUNT=COUNT  +  1 

2940  PRINT".";  'LETS  OPERATOR  KNOW  IT  IS  RUNNING 
2950  RETURN 
2960  ' 

3000  ' 

3010  ’»  GET  PART  DESCRIPT I ON- APPLE  CONTROL 
3020  ’ 

3030  GOSUB  1990  'GET  GENERAL  DESCRIPTION 
3040  GOSUB  3090  'GET  DIMENSIONS  OF  PART 
3050  RETURN 

3060  ' t«*t ««««««*« ttttttttttt *»««*««» 

3070  ' 

3080  '*  GET  DIMENSIONS  APPLE  CONTROL  t 
3090  ’ 

3100  T0TX=0:T0TZ*0 

3120  FOR  DIAMNUMB  »  1  TO  NUMBDIAM 

3122  VTAB ( PSTN ): FOR  SPACE  =  1  TO  14  :PRINT  CLR*:NEXT  'CLEAR  SCREEN 
3130  VTAB (PSTN) : PR I NT "ENTER  WIDTH  OF  DIAMETER  «";DIAMNUMB; 

3140  INPUT"  ANSWER* 

3150  DMENS I ON (DIAMNUMB, WDTH) *VAL (ANSWER*) 

3160  IF  DMENSION (DIAMNUMB, WDTH)  <*  O  OR  DMENS I ON (DIAMNUMB, WDTH)  >  STOCKDIAM  THEN 
PRINT: PRINT“MAXIMUM  TOTAL  WIDTH  IS" ; STOCKDIAM: GOTO 
3130 

3170  IF  DIAMNUMB>1  THEN  IF  DMENSION (DIAMNUMB, WDTH)  •^CUTREF>-DMENS ION (DlAMNUMB-1 , W 
DTH)  THEN  PRINT: PRINT"EACH  SUCCESIVE  DIAMETER  WIDTH 

MUST  BE":PRINT"LESS  THAN  THE  LAST  BY" ; CUTREF: PRINT: PR I NT "DIAMETER  #" ; DIAMNUMB-1 ; 
"  WIDTH  IS" ; DMENSION (DIAMNUMB-l, WDTH) : GOTO  3130 
3180  TOTX  =  TOTX  +  DMENSION (DIAMNUMB, WDTH) 

3188  TOTLEN=STOCKLEN  -  CLRNC  -  CUTWIDTH  'MAX  TOTAL  LENGTH  IS  STOCK  LENGTH  MINUS 
A  CLEARANCE  AND  CUTOFF  TOOL  WIDTH 

3190  VTAB ( PSTN ): FOR  SPACE  =  1  TO  8:PRINT  CLR*:NEXT 

3200  VTAB (PSTN) : PR I NT "ENTER  LENGTH  OF  DIAMETER  DIAMNUMB; : INPUT"  ««>", ANSWER* 
3210  DMENSION (DIAMNUMB, LENGTH)  =  VAL (ANSWER*) 

3220  IF  DMENSION  (DIAMNUMB,  LENGTH)  <  MINLEN  OR  DMENSION  (DIAMNUMB,  LENGTH)  TOTZ  > 

TOTLEN  THEN  PRINT: PRINT"MAXIMUM  TOTAL  LENGTH  IS";TO 
TLEN;"  AND  ANY  ":PRINT"ONE  DIAMETER  MUST  BE  GREATER  THAN"; MINLEN: PRINT"CURRENT  T 
OTAL  LENGTH  IS" ; TOTZ: GOTO  3200 
3230  TOTZ=TOTZ  +  DMENSION (DIAMNUMB, LENGTH) 

3240  NEXT  'LOOP  BACK  FOR  NEXT  DIAMETER 
3250  RETURN 

3260  'tttttftttttttttt************** 

3300  ' 

3310  '*«*  BET  PART  DESCRIPTION  -  IBM  CONTROL  »«* 

3320  ' 

3330  '  LOAD  IN  PART  DESCRIPTION 


2452  TOTX=TOOLlCENT:TOTZ=TOOLlFACE  ’INITIALIZE  ACCUHULATED  X  AND  Z  VALUES  FOR  CU 
TTING  TOOL 

2460  HOME: PR I NT "TYPE  IN  DESIRED  NEW  VALUE  AND  THEN" i PR I NT "TYPE  -RETURN-. " x PRINT 
2470  PRINT" X  MOVES  CUTTER  TOWARD  CENTER  IF  POSITIVE" 

2480  PRINT"Z  MOVES  CUTTER  ALONG  CENTER  LINE  TO" : PRINT"RIGHT  IF  POSITIVE" 

2490  PRINT"X  AND  Z  ARE  BOTH  RELATIVE,  FEEDRATE" : PRINT" IS  ABLSOLUTE. " 

2500  PRINT: PRINT"TYPE  NOTHING  BUT  -RETURN-  AND  THAT" : PR I NT "PARAMETER  STAYS  THE  S 
AME" 

2510  PRINT: PRINT"TYPE  S  FOR  STOP  OR  T  FOR  TOOL  CH^GE" 

2520  PRINT"OR  E  FOR  EXIT  IN  X  VALUE." 

2532  PRINT" 

2540  PSTN=17  ’POSITION  TO  START  INPUT  LINE 
2550  ’GET  NEXT  POINT 
2560  XNUL=0: ZNUL=0 
2572  CLR4=“ 

2574  VTAB (PSTN) : FOR  SPACE=l  TO  4: PRINT  CLR*:NEXT  ’CLEAR  SCREEN 
2580  VTAB  ( PSTN)  :  INPUT  "ENTER  NEXT  X  VALUE  »>",  ANSWER* 

2590  IF  ANSWER*=""  THEN  XNUL=1:G0T0  2652  ’JUMP  TO  Z 

2600  IF  ANSWER«="S"  THEN  C0MMAND=1 : X»=STP*: GOSUB  2830: T0TX=T00L1CENT: TOTZ=TOOLlF 
ACE: GOTO  2550 

2610  IF  ANSWER*="T"  THEN  C0MMAND=1 : X4-T00L*: GOSUB  2830: TOT X=T00L1 CENT: TOT Z=T00L1 
FACE: GOTO  2550 

2620  IF  ANSWER*="E“  THEN  RETURN  ’EXIT.  PROGRAMMING  FINISHED 
2630  X=VAL (ANSWER*) 

2640  IF  X+TOTX  <  MAXX  THEN  PRINT: PR I NT "TOTAL  X  CANNOT  BE  LESS  THEN";MAXX;" 
":PRINT  CLR*:GOTD  2580 

2641  IF  X+TOTX  >  -MAXX  THEN  PRINT: PR I NT "TOTAL  X  CANNOT  BE  GREATER  THAN"; -MAXX" 
":PRINT  CLR*:GOTO  2580 

2642  IF  X  =  0  THEN  PRINT: PRINT"TYPE  NOTHING  BUT  -ENTER-  IF  X" : PRINT"DOESN’ T  CHAN 

BE  " : GOTO  2580 

2650  VTAB (PSTN) : FOR  SPACE=1  TO  4: PRINT  CLR*:NEXT 
2652  ’GET  Z  VALUE 

2670  VTAB ( PSTN ): INPUT "ENTER  NEXT  Z  VALUE  **>", ANSWER* 

2680  IF  ANSWER**""  THEN  ZNUL*1:G0T0  2702  ’JUMP  TO  FEEDRATE 
2690  Z*VAL (ANSWER*) 

2698  IF  Z  =  O  THEN  PRINT: PRINT"TYPE  NOTHING  BUT  -RETURN-  IF  Z  ":PRINT"DO 

ESN’T  CHANGE  ".-GOTO  2670 

2700  IF  Z+TOTZ  <  0  OR  Z+TOTZ  >  MAXZ  THEN  PRINT: PR I NT "TOTAL  Z  CANNOT  BE  LESS  THAN 
O  OR": PR I NT "GREATER  THAN" ; MAXZ: GOTO  2670 
2702  VTAB (PSTN) : FOR  SPACE=1  TO  4: PRINT  CLR*:NEXT 
2710  ’GET  FEEDRATE 

2720  VTAB ( PSTN) : INPUT "ENTER  FEEDRATE  ==>", ANSWER* 

2730  IF  ANSWER**""  THEN  :GOTO  2770  ’JUMP  TO  PUT  IN  ARRAY 
2740  FEEDRATE*VAL( ANSWER*) 

2750  IF  FEEDRATE  <  MINFEED  THEN  PRINT: PR I NT "FEEDRATE  CANNOT  BE  LESS  THAN";MINFEE 
D:GOTO  2720 

2760  FEEDINIT  *  1  ’FEEDRATE  HAS  BEEN  INITIALIZED 
2770  GOSUB  2830  ’PUT  MOVE  IN  ARRAY 
2780  GOTO  2550  ’GET  NEXT  MOVE 
2790  * 

2800  ’ 

2810  ’ttt*******  PUT  IN  ARRAY  ««*»«**«»** 

2820  ’ 

2830  ’X  AND  Z  ARE  PASSED  AS  NUMBERS  XNULL  AND  ZNULL  ARE  USED  TO  INDICATE  THERE  A 
RE  NO  CHANGES  IN  THOSE  PARAMETERS 

2850  IF  XNUL*1  AND  YNUL*1  THEN  RETURN  ’NO  ENTRIES  MADE 
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2100  IF  ANSWER*  <>  "N"  THEN  PRINT: PRINT"TYPE  ONLY  Y  OR  N“:GOTO  2080  ’INPUT  ERROR 
2110  VTAB (PSTN) : FOR  SPACE  =  1  TO  10: PRINT  CLR»:NEXT  ’CLEARS  ALL  BUT  TOP  OF  SCREE 
N 

2120  GOOD  =  O 

2122  VTAB (PSTN) : INPUT "ENTER  PART  FAMILY  ==>" , PRTFMLY* 

2130  IF  PRTFMLY*  =  "AOO"  THEN  NUMBDIAM  *  1:G00D=1 
2140  IF  PRTFMLY*  =  "AlO"  THEN  NUMBDIAM  =  2:G00D=1 

2150  IF  PRTFMLY*  =  "A20"  THEN  PRINT:PRINT"MAXIMUM  NUMBER  OF  DIAMETERS  IS  ";DIAMA 
X: PRINT: INPUT "ENTER  NUMBER  OF  DIAMETERS  ==>“, ANSWER* 

:NUMBDIAM  =  INT (VAL (ANSWER*) ): IF  NUMBDIAM  >=  2  AND  NUMBDIAM  <=  DIAMAX  THEN  GOOD 
=  1 

2170  IF  GOOD  =  O  THEN  PRINT; PRINT"FAMILY  NOT  RECOGNI ZED" ; GOTO  2120  ’INPUT  ERROR 
2180  VTAB (PSTN) ; FOR  SPACE  =  1  TO  8:PRINT  CLR*:NEXT 

2190  VTAB(PSTN) ; PR INT "TYPICAL  FEEDRATES  FOR  MINI-LATHE  ARE";PRINT“3  TO  10  IN. /MI 
N.  4-5  IS  MAX  FOR  ALUMINUM. “ 

2200  VTAB (PSTN  +  5) ; INPUT"ENTER  FEEDRATE  ==>", ANSWER* 

2210  FEEDREF= I NT ( VAL ( ANSWER* ) ) 

2220  IF  FEEDREF  <  M INFEED  OR  FEEDREF  >  MAXFEED  THEN  PRINT: PR I NT "FEEDRATE  CANNOT 
BE  LESS  THAN";MINFEED; "OR“:PRINT"GREATER  THAN";MAXFE 
ED: GOTO  2200  ’INPUT  ERROR 

2230  VTAB ( PSTN ): FOR  SPACE  =  1  TO  9:PRINT  CLR*:NEXT 

2240  VTAB(PSTN) :PRINT"TYPICAL  CUT  DEPTH  PER  PASS  IS  .01  IN. " : PRINT"FOR  MINI-LATH 
E-" 

2250  VTAB (PSTN  +  5) : INPUT "ENTER  DEPTH  OF  CUT  IN  INCHES  ==>", ANSWER* 

2260  CUTREF=VAL( ANSWER*) 

2270  IF  CUTREF  <=  O  OR  CUTREF  >  MAXCUT  THEN  PRINT: PRINT"CUT  DEPTH  CANNOT  BE  GREA 
TER  THAN"; MAXCUT: GOTO  2250 

2280  VTAB (PSTN) : FOR  SPACE  =  1  TO  8:PRINT  CLR*:NEXT 
2290  VTAB (PSTN) : PR I NT "DEMO  STOCK  DIAMETER  IS  .5  INCHES" 

2300  VTAB (PSTN  +  5) : INPUT" ENTER  STOCK  DIAMETER  ==>", ANSWER* 

2310  STOCKDIAM  =  VAL (ANSWER*) 

2320  IF  STOCKDIAM  <=  O  DR  STOCKDIAM  >  MAXDIAM  THEN  PRINT: PRINT"DIAMETER  CANNOT  B 
E  GREATER  THAN" ; MAXDIAM: GOTO  2300 

2322  VTAB (PSTN) : FOR  SPACE  =  1  TO  8:PRINT  CLR*;NEXT 

2324  VTAB ( PSTN ): PR I NT "TYPICAL  STOCK  LENGTH  IS  3  INCHES" : PRINT" IT  MUST  BE  LONGER 
THAN  PART": PR I NT "PLUS  TOOLWIDTHS" 

2326  VTAB (PSTN  +  5) : INPUT" ENTER  STOCK  LENGTH  ==>", ANSWER* 

2327  STOCKLEN  =  VAL (ANSWER*) 

2328  IF  STOCKLEN  <=  O  OR  STOCKLEN  >  MAXLEN  ThCN  PRINT: PR I NT "CANNOT  BE  LONGER  THE 
N";MAXLEN:GOTO  2326 

2330  VTAB (PSTN) ; FOR  SPACE  =  1  TO  8: PRINT  CLR*:NEXT 

2340  VTAB ( PSTN ); PR I NT "PART  FAMILY  IS  ";PRTFMLY*;"  (WITH" ; NUMBDIAM; "DIAMETERS) " 

2350  PRINT; PR I NT "REFERENCE  FEERATE  IS"; FEEDREF 

2360  PRINT: PR I NT "REFERENCE  CUTDEPTH  IS"; CUTREF 

2370  PR I NT: PR I NT "STOCK  DIAMETER  IS" ; STOCKDIAM 

2380  PR I NT: PR I NT "STOCK  LENGTH  IS"; STOCKLEN 

2390  VTAB(PSTN  +  11):PRINT"D0  YOU  WANT  TO  CHANGE  ANY  OF" : PR I NT "ABOVE  (Y/N)  ";;GE 
T  ANSWER*: PRINT 

2400  IF  ANSWER*  =  "Y"  THEN  VTAB (PSTN) ; FOR  SPACE  =  1  TO  15: PRINT  CLR*: NEXT: GOTO  2 
120  ’GET  THEM  AGAIN 

2410  IF  ANSWER*  <>  "N"  THEN  PRINT: PRINT"TYPE  ONLY  Y  OR  N":GOTO  2390 
2412  RETURN 

2420  ’ tttttttttttttttttttttttttttttttttttf 

2430  ’ 

2440  ’*  MANUAL  POINT-TO-POINT  PROGRAMMING  t 
2450  ’ 


1408  PSTN  =23-4  ’POSTION  TO  START  INPUT  LINE 

1410  VTAB<PSTN) :PRINT"ENTER  CHOICE  (1  -"iNUMB;”)  ==>";:GET  ANSWERS 
1430  OPT I ONI  =  INT (VAL (ANSWER*) ) 

1440  IF  OPTIONl  =  O  OR  OPTIONl  >  NUMB  THEN  PRINT: PR I NT "TYPE  ONLY  1  --;NUMB:GOTO 
1410  ’INPUT  ERROR 

1450  IF  OPTIONl  =  NUMB  THEN  END  ’ENDS  PROGRAM 
1460  ’OPTIONl  NOW  HOLDS  CORRECT  MODE  CHOICE 
1470  RETURN 
1480 
1490  ’ 

1500  ’*»»*  GET  DATA  TO  DESCRIBE  PART  «*«« 

1510  ’ 

1520  ON  OPTIONl  GOSUB  1560,3020,3320  ’GET  DATA  MANUALLY, FROM  APPLE, FROM  IBM 
1530  RETURN 
1532 
1540  ’ 

1550  ’«*««  MANUAL  TEXT  GENERATION  ttt* 

1560  ’ 

1570  GOSUB  1640  ’GET  CHOICE  OF  OPTION  TO  CREATE  A  NEW  FILE  OR  MODIFY  OLD 
1590  ON  0PTI0N2  GOSUB  1920,1600  ’MODIFY  OR  CREATE 
1600  RETURN 
1610  ’ 

1620  ’»*«*  CHOICE  CREATE  OR  MODIFY  »»»» 

1630  ’ 

1640  HOME 

1650  PRINT  SPC (3) ; “OPTIONS  FOR  MANUAL  TEXT  GENERATION" 

1660  PRINT" «*»««»«««« PRINT 
1670  PRINT" 1.  CREATE  NEW  FILE": PRINT 
1680  PRINT"2.  MODIFY  AN  OLD  FILE”:PRINT 

1700  VTAB(PSTN) :PRINT"ENTER  CHOICE  (1-2)  ==>";:GET  ANSWER* 

1710  0PTI0N2  =  INT(VAL(ANSWER*) ) 

1720  IF  0PTI0N2  <  1  OR  0PTI0N2  >  2  THEN  PRINT: PRINT” ILLEGAL  ENTRY": GOTO  1700 
1730  RETURN 
1740 
1900  ’ 

1910  ’**«**  CREATE  MANUALLY  ***** 

1920  ’ 

1930  GOSUB  2000  ’GETS  GENERAL  PART  DESCRIPTION 
1940  GOSUB  2450  ’DO  POINT  TO  POINT  PROGRAMMING 
1950  RETURN 

1960  ’***************************************** 

1970  ’ 

1980  ’**  GET  GENERAL  PART  DESCRIPTION  *** 

1990  ’ 

2000  HOME 

2010  PRINT  SPC ( 7) ; "GENERAL  PART  DESCRIPTION" 

2020  PRINT”**************************************" 

2030  PSTN  =  4  'POST I ON  TO  START  INPUT  LINE 
2032  CLR*=" 

2040  VTAB (PSTN) : INPUT  "ENTER  PART  NAME  ==>" , PRTNAME* 

2050  VTAB (PSTN) : PRINT  CLR*: VTAB (PSTN) : INPUT  "ENTER  PART  NUMBER  ==>" , PRTNUMB* 

2060  VTAB ( PSTN ): PR I NT  CLR*: VTAB (PSTN) : PR I NT "PART  NAME  IS  PRTNAME*: PRINT 
2070  PR I NT "PART  NUMBER  IS  ";PRTNUMB* 

2080  VTAB(PSTN  +  5):PRINT"D0  YOU  WISH  TO  CHANGE  ANY" : PRINT"OF  ABOVE  <Y/N)  ?  ";:B 
ET  ANSWER*: PR I NT 

2090  IF  ANSWER*  =  "Y"  THEN  HOME: GOTO  2010  ’  BET  AGAIN 


I 


t 


2590  PR I NT: PRINT  "ERROR  IN  R  AND  F  CHECK  ROUTINE" : END 
2600  REM  »»*»*  CALCULATE  SS  FROM  R  AND  F  VALUES  *»»*« 

2610  DENUM=  (((256  -  RATE)  »  80)  +  (FEXP  «  10)  +  75)  t  .000001 
2620  SSEXP=  1/DENOM 
2630  SSERR=ABS (SS-SSEXP) 

2640  RETURN 

2650  REM  **  CALCULATE  SLOPE  »* 

2660  IF  SPEED  <  12  THEN  SLOPE  =  255  :  GOTO  2710 
2670  SLOPE  =  1 

2680  YY  =  2  *  (  INT((  255  -  FACTOR  )  /  SLOPE  )) 

2690  IF  SLOPE  >  254  THEN  GOTO  2710 

2700  IF  YY  >  STEPS  THEN  SLOPE  =  SLOPE  +  1  :  GOTO  2680 

2710  RATE* =STR4i  ( RATE ) : SLOPE*=STR* ( SLOPE ) : FACTOR*=STR* ( FACTOR ) : STEPS*=STR» ( STEPS ) 
2720  C  Y*=  "  R  +R  ATE*+  "  ,  S  "  +SLOPE*+  "  ,  F  “+FACTOR*+  " ,  N  "  +STEPS*+  " ,  "  +D I RECT I  ON* 

2730  RETURN 

2740  REM  tttttttttttttttttttttttttttttttttttttttttt 

2750  REM  »  SUBROUTINE  TO  DO  ARC  INTERPOLATION 
2760  REM 

2770  PR I NT "ARC  INTERPOLATION  NOT  AVAILABLE  YET":GOBUB  3190: RETURN  'INTERPOLATION 
ERROR 
2780  ’ 

2790  REM 

2800  REM  »  AXIS  SPEED  <  1.65  ERROR 

2810  REM  tttttttttttttttttttttttttttttttt 

2820  REM 

2830  AXIS*="  " 

2840  IF  XSPEED  <  1.65  AND  XSPEED  >  O  THEN  AX IS*=" X-AX IS" 

2850  IF  ZSPEED  <  1.65  AND  ZSPEED  >  O  THEN  AXIS*=AXIS*+" , Z-AXIS" 

2860  PRINT  "INTERPOLATION  CAUSES  "jAXIS*;"  TO" 

2870  PRINT  "TO  BE  LESS  THEN  MINIMUM  OF  1.65  IN. /MIN. " 

2880  GOTO  3190  'INTERPRETATION  ERROR 
2890  RFM 

2900  REM  t  AXIS  SPEED  >  112  ERROR 

2910  REM  t$*t**t*tt****tt*t*t*t**t*t**ttt* 

2920  REM 

2930  IF  XSPEED  >  112  AND  ZSPEED  >  112  THEN  AXIS*="X  AND  Z  AXIS":GOTD  2960 
2940  IF  XSPEED  >112  THEN  AXIS*="X  AXIS" 

2950  IF  ZSPEED  >112  THEN  AXIS*="Z  AXIS" 

2960  PR I NT "FEED  RATE  WITH  INTERPOLATION  CAUSES  ";AXIS*; 

2970  PRINT"TO  EXCEED  MAX.  OF  112  IN. /MIN. " 

2980  GOTO  3190  ' INTERPRETATION  ERROR 
2990  ' 

3000  '  ROUTINE  TO  HANDLE  FILE  NAME  ERRORS 
3010  ' 

3020  IF  ERR=53  OR  ERR  =  64  THEN  PRINT: PRINT"FILE  NOT  FOUND  OR  BAD  FILE  NAME": GOT 
O  3050 

3030  IF  ERR  =  62  THEN  PRINT: PR I NT "CYC  FILE  MISSING  '****’  EOF  MARKER": GOTO  3050 
3040  PRINT: PR I NT "ERROR  LOADING  FILE  OTHER  THAN  BAD  NAME" 

3050  PRINT: PRINT"TYPE  ANY  KEY  TO  CONT I NUE " : GET  HOLD*:GOTO  740  'EXITGOTO  502  'EXI 
T  PROAGRAM 
3060  ' 

3070  ' ILLEGAL  CHARACTER  ERROR 
3080  ' 

3090  PRINT 

3100  IF  C*="Y"  THEN  PR I NT "LATHE  ONLY  USES  X  AND  Z  AX  IS": GOTO  3190 
3110  IF  C*>"  "  THEN  PRINT" ILLEGAL  CHARACTER  ’ " ; C*; " ’ " : GOTO  3190 
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■  V  3120  PR I NT “ILLEGAL  CHARACTER  ASCII  CODE"; ASC(C*) : GOTO  3190 

;  3130  ’ 

3140  ’CONTAINS  TWO  OF  SAME  PARAMETER 
3150  ’ 

;;  3160  PR  I  NT  "CONTAINS  2  OF  SAME  PARAMTER  ••;C*;"  IN  SAME  LINE.":  GOTO  3190 

k  3170  ’ 

3180  ’  INTERPRETING  ERROR  FINAL  ROUTINE 

■  3190  ’ 

3200  PRINT"ERROR  IS  IN  LINE  #";NLINE7. 

3210  PRINT  SLINE* 

3220  PRINT"THE";LNE7.;  "  RD  CONSECUTIVE  LINE  FROM  THE  BEGINNING" 

3230  PRINT"TYPE  C  TO  CONTINUE  INTERPRETATIO.J,  ANY  OTHER  KEY  EXITS"; 

kC  3240  GET  ANSWER*: IF  ANSWER*  =  "C"  THEN  I NERRORX= 1 : RETURN  ’SET  INTERPRET  ERROR  FL 
AG  AND  GO  BACK  TO  INTERPRET  NEXT  LINE 
3250  ’ 

3260  ’  READ  IN  INTERPRETED  FILE 
3270  ’ 

3280  PR I NT "LOAD  FILE  STARTED" 

,  w  3290  ON  ERROR  GOTO  3010 

^  3300  IF  OPENED  17.=0  THEN  OPEN  "  I  “  ,  #1 ,  CY512*:  OPENED17.=  l 

3310  T0TLINES7.=MAXLINES7.:EXMAXLINES7.=  1 
3320  FOR  LINES7.=  1  TO  MAXLINES7. 

3330  INPUT  #1,CYM0VE*(LINES7.,  1)  ,CYM0VE*(LINES7.,2) 

3340  IF  CYM0VE*(LINES7.,  1)  =  "****"  THEN  TOTLINES7.=LINES7.-l :  EXMAXLINES7.=0:  LINES7.= 
L  MAXLINESV. 

:  3350  NEXT: ON  ERROR  GOTO  O: RETURN 

3360  ’ 

3370  ’  SEPARATE  X,Y  AND  Z  AXIS 
3380  ’ 

3390  COLON  1  =  I NSTR  ( CYMOVE*  ( LNE7. ,  C Y7. )  . . . 

3400  XP*=LEFT*  (CYMOVE*  (LNE7.,  CY7.)  ,C0L0Nl-2> 

3410  ZP*=MID*  (CYMOVE*  (LNE7.,  CY7.)  ,C0L0Nl+2) 

3420  ’ 

3430  ’  EXECUTE  MOVE 
3440  ’ 

3450  Q*=USR1(XP*) 
jt!*  3460  Q*=USR3(ZP*) 

'  3470  Q*=USR1 ("G") :Q*=USR3("G")  ’SENDS  GO  TO  BLUE  BOX 

3480  RETURN 
3490  ’ 

3500  ’  TOOL  CHANGE  SUBROUTINE 
3510  ’ 

w  3520  ’REINITIALIZE  LATHE 
:  3530  ’ 

3540  PRINT: PRINT"REINITIALIZING  LATHE" 

3550  STATl=8cHEOFO:STAT2=8tHEOF2 

3560  CY1*="I,R  250, S  1,F  1,N  10000, +, G" : CY2*=" I , R  220, S  1,F  1,N  20000, -,G" 

3570  Q*=USR1 (CYl*) 

•  3580  X*=RIGHT*( (HEX*(PEEK(STAT1) ) ) , 1) 

3590  IF  ASC(X*)  >  55  THEN  POKE  STATl ,  &H44:  POKE  STATl ,  8<H40:  GOTO  3610 
3600  GOTO  3580 
3610  Q*=USR3(CY2*) 

3620  Z*=RIGHT*( (HEX* (PEEK (STAT2) )), 1) 

3630  IF  ASC(Z*)  >  55  THEN  POKE  STAT2,  &H44:  POKE  STAT2, 5cH40:  GOTO  3650 
3640  GOTO  3620 

3650  CY1*="R  100, S  1,F  1,N  15, +, G" : CY2*="R  100, S  1,F  1,N  15, -,G" 


3660  Q«=USR 1 ( CY 1 $ ) : Q« =USR3 ( CY2* ) 

3670  ABX=0:ABZ=0  'RESET  ABSOLUTE  REGISTERS 
3680  ' 

3690  '  DISPLAY  TOOL  NUMBER 
3700  ’ 

3710  T*=M I D*  ( CYMOVE*  ( LNE7. ,  MC7. )  ,  I NSTR  ( CYMOVE*  ( LNE7 ,  MC*/. )  ,  *•  T  "  )  + 1 ) 

3720  PR  I  NT:  PR  I  NT  "LOAD  TOOL  #‘‘;T* 

3730  PRINT: PRINT  "TYPE  R  WHEN  READY  TO  CONTINUE." 

3740  GET  ANSWER*: IF  ANSWER*  <>  "R"  GOTO  3730 
3750  RETURN 
3760  ' 

3770  '  DO  AGAIN  ? 

3780  ' 

3790  PRINT:PRINT:PRINT"DO  YOU  WISH  TO  MAKE  SAME  PART  AGAIN  ?  (Y  FOR  YES)";:GET  A 
NSWER* 

3800  IF  ANSWER*  <>  "Y"  THEN  CST0P=1  ELSE  CST0P=0 
3810  RETURN 
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Year 

Name  of  Student 

Major 

Description  of  Work 

Prior 

to  Grant 

1978 

Duane  Schow 

Staff 

Installation  of  ball 
screws  and  stepper  motors 
on  lathe  and  mill 

1978 

Charles  Snedd 

CAM,  M.S. 

Tectronix  4051/MACSYM/ 

1980 

Val  Hubbard 

Mfg.  Tech 

Parametric  design,  TEK 
4051 

1980 

Doug  Bushman 

Ind.  Design 

Parametric  design,  Apple 
II 

1981 

Marvin  Quist 

CAM,  M.S. 

AS/RS  design  and 
evaluation 

Forest  Blair 

Mech.  Eng. 

Design  of  equipment 

After 

Grant 

1982 

Forest  Blair 

Mech.  Eng. 

Design  of  equipment 

1982 

Justin  Redd 

El.  Eng. 

Stepper  motor  drives 

1983 

David  Jesperson 

Mfg.  Tech. 

Programming,  Demo  System 

1983 

Bruce  Ross 

Design  Tech. 

Mechanical  Draftsman 

1983 

Tim  Ward 

Mfg.  Tech. 

Equipment  Fabrication 

1983 

John  Oliver 

Mfg.  Tech. 

Equipment  Fabrication 

1983 

Greg  Peto 

El.  Eng. 

Programming 

1983 

Stanley  Livingston 

El.  Eng. 

Mechanical  Drafting 

1984 

Darin  Mathews 

Mfg.  Tech. 

Equipment  Fabrication 
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